Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -N -r1.295 -r1.296
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	14 Sep 2017 16:13:10 -0000	1.295
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	1 Oct 2017 12:10:25 -0000	1.296
@@ -580,7 +580,7 @@
     if {$value eq ""} {set value [next $attribute $default]}
     if {$type ne ""} {
       # to be extended and generalized
-      switch $type {
+      switch -- $type {
         word {if {[regexp {\W} $value]} {error "value '$value' contains invalid character"}}
         default {error "requested type unknown: $type"}
       }