Index: openacs-4/packages/acs-admin/www/users/member-state-change.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/member-state-change.tcl,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/acs-admin/www/users/member-state-change.tcl	11 Sep 2017 14:56:16 -0000	1.19
+++ openacs-4/packages/acs-admin/www/users/member-state-change.tcl	1 Oct 2017 12:16:05 -0000	1.20
@@ -34,7 +34,7 @@
 # This page is used for state changes in the member_state, and as well
 # on email confirm require and approve operations.
 #
-switch $email_verified_p {
+switch -- $email_verified_p {
     "t" {
         set user_name     $name
         set url           [ad_url]
@@ -63,7 +63,7 @@
 if {[catch {
     acs_user::change_state -user_id $user_id -state $member_state
 
-    switch $email_verified_p {
+    switch -- $email_verified_p {
         "t" {
             db_exec_plsql approve_email {}
         }