diff --git a/lib/WebGUI/AssetLineage.pm b/lib/WebGUI/AssetLineage.pm
index 971460652..a5c2e50cd 100644
--- a/lib/WebGUI/AssetLineage.pm
+++ b/lib/WebGUI/AssetLineage.pm
@@ -122,7 +122,7 @@ sub cascadeLineage {
         $cache->flush;
     }
     else {
-        my $descendants = $self->session->db->read("SELECT assetId FROM asset WHERE lineage LIKE ?", [$newLineage]);
+        my $descendants = $self->session->db->read("SELECT assetId FROM asset WHERE lineage LIKE ?", [$newLineage . '%']);
         while (my ($assetId, $lineage) = $descendants->array) {
             $cache->deleteChunk(["asset",$assetId]);
         }
diff --git a/lib/WebGUI/Cache/Database.pm b/lib/WebGUI/Cache/Database.pm
index 81e8a89df..df15d06bf 100644
--- a/lib/WebGUI/Cache/Database.pm
+++ b/lib/WebGUI/Cache/Database.pm
@@ -16,7 +16,7 @@ package WebGUI::Cache::Database;
 
 use strict;
 use base "WebGUI::Cache";
-use Storable qw(freeze thaw);
+use Storable ();
 
 =head1 NAME
 
@@ -104,7 +104,7 @@ sub get {
 	return undef unless ($content);
 	# Storable doesn't like non-reference arguments, so we wrap it in a scalar ref.
     eval {
-        $content = thaw($content);
+        $content = Storable::thaw($content);
     };
     return undef unless $content && ref $content;
     return $$content;
@@ -175,7 +175,7 @@ The time to live for this content. This is the amount of time (in seconds) that
 sub set {
 	my $self = shift;
 	# Storable doesn't like non-reference arguments, so we wrap it in a scalar ref.
-	my $content = freeze(\(scalar shift));
+	my $content = Storable::nfreeze(\(scalar shift));
 	my $ttl = shift || 60;
 	my $size = length($content);
 	# getting better performance using native dbi than webgui sql
diff --git a/lib/WebGUI/Operation/Friends.pm b/lib/WebGUI/Operation/Friends.pm
index 6334aab51..84b53a5eb 100644
--- a/lib/WebGUI/Operation/Friends.pm
+++ b/lib/WebGUI/Operation/Friends.pm
@@ -142,7 +142,6 @@ sub www_addFriendSave {
         return $session->style->userStyle($output);
     }
 
-    my $friends = WebGUI::Friends->new($session);
     $friends->sendAddRequest($friendId, $session->form->get('comments'));
 
     # display result