Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -N -r1.248.2.2 -r1.248.2.3
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	18 Aug 2015 10:42:47 -0000	1.248.2.2
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	18 Aug 2015 12:42:28 -0000	1.248.2.3
@@ -734,7 +734,7 @@
     # Search for the slot. If the slot exists, extend it's default
     # value with the new value
     foreach c [my info heritage] {
-      if {[info command ${c}::slot::$name] ne ""} {
+      if {[info commands ${c}::slot::$name] ne ""} {
         set value [concat $value [${c}::slot::$name default]]
         break
       }