Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -r1.58.2.1 -r1.58.2.2
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	19 Nov 2003 00:46:22 -0000	1.58.2.1
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	2 Jan 2004 16:39:43 -0000	1.58.2.2
@@ -845,7 +845,7 @@
 
         # If so, add -2 or -3 or ... to make it unique
         if { ![empty_string_p $existing_user_id] } {
-            set match "$user_info)username)-%"
+            set match "$user_info(username)-%"
             set existing_usernames [db_list select_existing_usernames { 
                 select username 
                 from   users