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.14 -r1.15
--- openacs-4/packages/s5/tcl/s5-procs.tcl	7 Feb 2009 20:36:36 -0000	1.14
+++ openacs-4/packages/s5/tcl/s5-procs.tcl	4 Apr 2018 22:00:34 -0000	1.15
@@ -198,7 +198,7 @@
       set pagenr_link "presentation?slideshow=1&pagenr=$count"
       set menu [list]
       foreach b $menu_buttons {
-	if {[info command ::xowiki::includelet::$b] eq ""} {
+	if {[info commands ::xowiki::includelet::$b] eq ""} {
 	  set b $b-item-button
 	}
         switch $b {
@@ -273,4 +273,4 @@
       return "<pre class='code'>[api_pretty_tcl [my value]]</pre>"
     }
   }
-}
\ No newline at end of file
+}