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.60 -r1.61
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	21 Jan 2004 17:13:07 -0000	1.60
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	26 Jan 2004 15:39:41 -0000	1.61
@@ -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 "${username}-%"
             set existing_usernames [db_list select_existing_usernames { 
                 select username 
                 from   users