diff --git a/lib/WebGUI/Wobject.pm b/lib/WebGUI/Wobject.pm
index 1788d69a3..92b5de541 100644
--- a/lib/WebGUI/Wobject.pm
+++ b/lib/WebGUI/Wobject.pm
@@ -565,7 +565,7 @@ sub set {
 =cut
 
 sub setCollateral {
-	my ($key, $sql, $properties, $seq, $dbkeys, $dbvalues, $counter);
+	my ($key, $sql, $seq, $dbkeys, $dbvalues, $counter);
 	my ($class, $table, $keyName, $properties, $useSequence, $useWobjectId) = @_;
 	$counter = 0;
 	if ($properties->{$keyName} eq "new" || $properties->{$keyName} eq "") {