Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.332 -r1.333
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	30 Sep 2017 18:12:53 -0000	1.332
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	1 Oct 2017 12:10:25 -0000	1.333
@@ -175,7 +175,7 @@
           set __value [ad_text_to_html -- $__value]
         }
         lappend default_variables [string range $key 1 end] $__value
-        switch $key {
+        switch -- $key {
           _name {set name $__value}
         }
       }
@@ -1890,7 +1890,7 @@
       # Handling now just INPUT types (only one needed so far)
       #
       set type [expr {[$field hasAttribute type] ? [$field getAttribute type] : "text"}]
-      switch $type {
+      switch -- $type {
         checkbox {
           #my msg "get_form_value not implemented for $type"
         }
@@ -1940,7 +1940,7 @@
       #
       set type [expr {[$field hasAttribute type] ? [$field getAttribute type] : "text"}]
       # the switch should be really different objects ad classes...., but thats HTML, anyhow.
-      switch $type {
+      switch -- $type {
         checkbox {
           #my msg "$att: CHECKBOX value='$value', [$field hasAttribute checked], [$field hasAttribute value]"
           if {[$field hasAttribute value]} {