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.15 -r1.16
--- openacs-4/packages/xowiki/tcl/menu-procs.tcl	9 Apr 2018 07:58:06 -0000	1.15
+++ openacs-4/packages/xowiki/tcl/menu-procs.tcl	25 Apr 2018 19:47:48 -0000	1.16
@@ -151,7 +151,7 @@
   }
 
   ::xowiki::MenuBar instproc init {} {
-    set :Menues [list]
+    set :Menues {}
     :destroy_on_cleanup
   }
 
@@ -233,7 +233,7 @@
     # such an entry.
     #
     set updated 0
-    set newitems [list]
+    set newitems {}
     foreach {n i} [set :Menu($menu)] {
       if {$n eq $name} {
         lappend newitems $name $item