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 -r1.239.2.3 -r1.239.2.4
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	29 Sep 2013 20:08:51 -0000	1.239.2.3
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	30 Sep 2013 11:37:17 -0000	1.239.2.4
@@ -1441,7 +1441,7 @@
   }
   code_listing instproc pretty_value {v} {
     [my object] do_substitutions 0
-    if {[info command api_tclcode_to_html] ne ""} {
+    if {[info commands api_tclcode_to_html] ne ""} {
       set html [api_tclcode_to_html [my value]]
       regsub -all "\n?\r</FONT></EM>" $html </FONT></EM> html
       return "<pre class='code'>$html</pre>"