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.7 -r1.7.2.1
--- openacs-4/packages/xowiki/tcl/menu-procs.tcl	29 Jul 2013 09:05:02 -0000	1.7
+++ openacs-4/packages/xowiki/tcl/menu-procs.tcl	30 Sep 2013 11:37:18 -0000	1.7.2.1
@@ -354,7 +354,7 @@
     id
   }
 
-  if {[info command ::dict] ne ""} {
+  if {[info commands ::dict] ne ""} {
      ::xowiki::MenuBar instproc get_prop {dict key {default ""}} {
       if {![dict exists $dict $key]} {
 	return $default