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 -r1.8.2.7 -r1.8.2.8
--- openacs-4/packages/xowiki/tcl/menu-procs.tcl	25 Feb 2017 17:12:56 -0000	1.8.2.7
+++ openacs-4/packages/xowiki/tcl/menu-procs.tcl	15 Apr 2017 10:12:03 -0000	1.8.2.8
@@ -283,7 +283,7 @@
     foreach me $items {
       array unset ""
       set kind [lindex $me 0]
-      if {[string range $kind 0 0] eq "#"} continue
+      if {[string index $kind 0] eq "#"} continue
       set properties [lrange $me 1 end]
 
       switch $kind {