Index: openacs-4/packages/acs-subsite/www/members/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/index.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/acs-subsite/www/members/index.tcl	7 Aug 2017 23:47:59 -0000	1.21
+++ openacs-4/packages/acs-subsite/www/members/index.tcl	1 Oct 2017 12:16:05 -0000	1.22
@@ -237,7 +237,7 @@
         set member_state_pretty [group::get_member_state_pretty -member_state $member_state]
         set user_email [email_image::get_user_email -user_id $user_id]
         if { $admin_p } {
-            switch $member_state {
+            switch -- $member_state {
                 approved {
                     if { $member_admin_p == 0 } {
                         set make_admin_url [export_vars -base make-admin { user_id }]