Index: openacs-4/packages/xowiki/tcl/menu-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/menu-procs.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/xowiki/tcl/menu-procs.tcl	31 Aug 2017 17:29:34 -0000	1.10
+++ openacs-4/packages/xowiki/tcl/menu-procs.tcl	1 Oct 2017 12:10:25 -0000	1.11
@@ -284,7 +284,7 @@
       if {[string index $kind 0] eq "#"} continue
       set properties [lrange $me 1 end]
 
-      switch $kind {
+      switch -- $kind {
         
         clear_menu {
           my clear_menu -menu [dict get $properties -menu]