Index: openacs-4/packages/acs-subsite/lib/login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/login.tcl,v
diff -u -N -r1.37 -r1.38
--- openacs-4/packages/acs-subsite/lib/login.tcl	7 Aug 2017 23:47:57 -0000	1.37
+++ openacs-4/packages/acs-subsite/lib/login.tcl	1 Oct 2017 12:16:05 -0000	1.38
@@ -226,7 +226,7 @@
                              -persistent=[expr {$allow_persistent_login_p && [template::util::is_true $persistent_p]}]]
     
     # Handle authentication problems
-    switch $auth_info(auth_status) {
+    switch -- $auth_info(auth_status) {
         ok {
             # Continue below
         }
@@ -246,7 +246,7 @@
     }
 
     # Handle account status
-    switch $auth_info(account_status) {
+    switch -- $auth_info(account_status) {
         ok {
             # Continue below
         }