Index: openacs-4/packages/acs-tcl/tcl/admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/admin-procs.tcl,v
diff -u -N -r1.24 -r1.25
--- openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	7 Aug 2017 23:47:59 -0000	1.24
+++ openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	1 Oct 2017 12:16:05 -0000	1.25
@@ -66,7 +66,7 @@
     foreach criteria [ad_user_class_parameters] {
 	if { [info exists $criteria] && [set $criteria] ne "" } {
 
-	    switch $criteria {
+	    switch -- $criteria {
 		"category_id" {
 		    set pretty_category [db_string $criteria {
 			select category from categories where category_id = :category_id
@@ -194,7 +194,7 @@
     is set, then a list of lists will be returned (url label).
 } {
     set user_finite_states [list]
-    switch $member_state {
+    switch -- $member_state {
         "approved" {
             lappend user_finite_states \
                 [list [export_vars -base "/acs-admin/users/member-state-change" {