Index: openacs-4/packages/acs-tcl/tcl/html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/html-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/html-procs.tcl	7 Aug 2017 23:47:59 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/html-procs.tcl	1 Oct 2017 12:16:05 -0000	1.3
@@ -124,7 +124,7 @@
         # no name, no variable
         if {![info exists a(name)] || $a(name) eq ""} continue
         set name $a(name) ; set tag $fld(tag)
-        switch $tag {
+        switch -- $tag {
             "input" {
                 if {[info exists a(value)]} {
                     lappend v($name) $a(value)