Index: openacs-4/packages/xowiki/tcl/folder-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/folder-procs.tcl,v
diff -u -N -r1.36 -r1.37
--- openacs-4/packages/xowiki/tcl/folder-procs.tcl	31 Aug 2017 17:29:34 -0000	1.36
+++ openacs-4/packages/xowiki/tcl/folder-procs.tcl	1 Oct 2017 12:10:25 -0000	1.37
@@ -662,7 +662,7 @@
       $mb add_menu -name $Menu
       set menuEntries {}
       foreach e $entries {
-        switch $e {
+        switch -- $e {
           ::xowiki::File {
             lappend menuEntries {entry -name New.File -label File -object_type ::xowiki::File}
           }