Index: openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl,v
diff -u -r1.28.2.9 -r1.28.2.10
--- openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl	30 Sep 2022 13:19:38 -0000	1.28.2.9
+++ openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl	30 Sep 2022 13:31:36 -0000	1.28.2.10
@@ -1275,9 +1275,11 @@
 
                 # This user will be created
                 set new_user_username [db_string get_new_username {
-                    select max(username) || 'a' from users
+                    select max(username) || 'A' from users
                 }]
-                set new_user_email [string tolower $new_user_username@test.com]
+                # Usernames could be emails, make sure the fake test
+                # email is formally correct regardless
+                set new_user_email [string tolower [string map {@ "" . ""} $new_user_username]@test.com]
                 set new_user_first_names AAAA
                 set new_user_last_name BBBB