Index: openacs-4/packages/acs-subsite/www/register/user-join.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/user-join.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-subsite/www/register/user-join.tcl	7 Aug 2017 23:47:59 -0000	1.15
+++ openacs-4/packages/acs-subsite/www/register/user-join.tcl	1 Oct 2017 12:16:05 -0000	1.16
@@ -120,7 +120,7 @@
             set required_seg [template::multirow get required_segments $rownum]
             
             if { ![group::member_p -group_id $required_segments(group_id)] } {
-                switch $required_segments(join_policy) {
+                switch -- $required_segments(join_policy) {
                     "needs approval" {
                         set member_state "needs approval"
                     }
@@ -176,7 +176,7 @@
         ad_script_abort
     }
     
-    switch $member_state {
+    switch -- $member_state {
         "approved" { set message "[_ acs-subsite.You_joined_group]." }
         "needs approval" { set message "[_ acs-subsite.Request_join_submitted]." }
     }