Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -N -r1.54 -r1.55
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	7 Aug 2017 23:48:02 -0000	1.54
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	1 Oct 2017 12:16:05 -0000	1.55
@@ -1016,7 +1016,7 @@
     @return 
     @error 
 } {
-    switch $what {
+    switch -- $what {
         select_value - select {
             return [lindex $select_text_list 0]
         }
@@ -1128,7 +1128,7 @@
     @return 
     @error 
 } {
-    switch $what {
+    switch -- $what {
         radio_value - radio {
             return [lindex $radio_list 0]
         }
@@ -1253,7 +1253,7 @@
     @return 
     @error 
 } {
-    switch $what {
+    switch -- $what {
         checkbox_value - checkbox {
             return [lindex $checkbox_list 0]
         }