Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v
diff -u -N -r1.40 -r1.41
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	7 Aug 2017 23:47:58 -0000	1.40
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	1 Oct 2017 12:16:05 -0000	1.41
@@ -315,7 +315,7 @@
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-07-26
 } {
-    switch $type {
+    switch -- $type {
 	party  { set member_list [db_list group_members_party {}] }
 	default { set member_list [db_list group_members {}] }
     }
@@ -458,7 +458,7 @@
     #
     regsub -all " " $member_state "_" member_state
     
-    switch $component {
+    switch -- $component {
         pretty_name {
             set message #acs-kernel.member_state_$member_state#
         }