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.13 -r1.14
--- openacs-4/packages/xowiki/tcl/menu-procs.tcl	25 Mar 2018 22:13:40 -0000	1.13
+++ openacs-4/packages/xowiki/tcl/menu-procs.tcl	6 Apr 2018 16:06:32 -0000	1.14
@@ -362,15 +362,15 @@
   ::xowiki::MenuBar instproc content {} {
     set result [list id [:id]]
     foreach e ${:Menues} {
-      lappend result $e [concat kind MenuButton [set :Menu($e)]]
+      lappend result $e [list kind MenuButton {*}[set :Menu($e)]]
     }
     
     foreach e [:array name ModeButton] {
-      lappend result $e [concat kind ModeButton [set :ModeButton($e)]]
+      lappend result $e [list kind ModeButton {*}[set :ModeButton($e)]]
     }
 
     foreach e [:array name DropZone] {
-      lappend result $e [concat kind DropZone [set :DropZone($e)]]
+      lappend result $e [list kind DropZone {*}[set :DropZone($e)]]
     }
 
     return $result