diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index 7d69cebff..7ce4f0a55 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -1924,7 +1924,7 @@ Lineage string.
 =cut
 
 sub newByLineage {
-	my $class = shift;
+	my $self = shift;
         my $lineage = shift;
         my ($id,$class) = WebGUI::SQL->quickArray("select assetId, className from asset where lineage=".quote($lineage));
 	return WebGUI::Asset->new($id, $class);