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.114.2.14 -r1.114.2.15
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	3 Mar 2021 11:25:18 -0000	1.114.2.14
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	3 Mar 2021 12:35:41 -0000	1.114.2.15
@@ -974,12 +974,12 @@
         }
     }
 
-    set local_test_authorities [list \
-                                    [auth::authority::local] \
-                                    [auth::authority::get_id -short_name "acs_testing"]]
+    set local_authorities [list \
+                               [auth::authority::local] \
+                               [auth::authority::get_id -short_name "acs_testing"]]
 
     # Default a local account username
-    if { $user_info(authority_id) in $local_test_authorities
+    if { $user_info(authority_id) in $local_authorities
          && [auth::UseEmailForLoginP]
          && $username eq "" } {