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.239.2.18 -r1.239.2.19
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	3 Sep 2014 20:17:42 -0000	1.239.2.18
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	10 Sep 2014 20:19:27 -0000	1.239.2.19
@@ -1467,8 +1467,8 @@
   }
   code_listing instproc pretty_value {v} {
     [my object] do_substitutions 0
-    if {[info commands ::apidoc::api_tclcode_to_html] ne ""} {
-      set html [::apidoc::api_tclcode_to_html [my value]]
+    if {[info commands ::apidoc::tclcode_to_html] ne ""} {
+      set html [::apidoc::tclcode_to_html [my value]]
       regsub -all "\n?\r</FONT></EM>" $html </FONT></EM> html
       return "<pre class='code'>$html</pre>"
     } else {