Index: openacs-4/packages/s5/tcl/s5-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/tcl/s5-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/s5/tcl/s5-procs.tcl	5 Apr 2018 07:00:07 -0000	1.17
+++ openacs-4/packages/s5/tcl/s5-procs.tcl	25 Apr 2018 19:47:48 -0000	1.18
@@ -196,7 +196,7 @@
       $p destroy_on_cleanup
 
       set pagenr_link "presentation?slideshow=1&pagenr=$count"
-      set menu [list]
+      set menu {}
       foreach b $menu_buttons {
 	if {[info commands ::xowiki::includelet::$b] eq ""} {
 	  set b $b-item-button