diff --git a/lib/WebGUI/User.pm b/lib/WebGUI/User.pm
index 0de6ddc91..60d7ca1ca 100644
--- a/lib/WebGUI/User.pm
+++ b/lib/WebGUI/User.pm
@@ -295,7 +295,7 @@ sub ldapURL {
 =cut
 
 sub new {
-        my (%default, $class, $userId, %default, $value, $key, %user, %profile);
+        my ($class, $userId, %default, $value, $key, %user, %profile);
 	tie %user, 'Tie::CPHash';
         $class = shift;
         $userId = shift || 1;