Index: openacs-4/packages/acs-subsite/lib/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-new.tcl,v
diff -u -N -r1.20 -r1.21
--- openacs-4/packages/acs-subsite/lib/user-new.tcl	7 Aug 2017 23:47:58 -0000	1.20
+++ openacs-4/packages/acs-subsite/lib/user-new.tcl	1 Oct 2017 12:16:05 -0000	1.21
@@ -133,7 +133,7 @@
     
     # Handle registration problems
     
-    switch $creation_info(creation_status) {
+    switch -- $creation_info(creation_status) {
         ok {
             # Continue below
         }
@@ -153,7 +153,7 @@
         }
     }
     
-    switch $creation_info(account_status) {
+    switch -- $creation_info(account_status) {
         ok {
             # Continue below
         }