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.9 -r1.10
--- openacs-4/packages/s5/tcl/s5-procs.tcl	5 Feb 2008 15:21:02 -0000	1.9
+++ openacs-4/packages/s5/tcl/s5-procs.tcl	10 Feb 2008 13:15:42 -0000	1.10
@@ -268,7 +268,7 @@
     {cols 80}
   }
   FormField::code_listing instproc pretty_value {v} {
-    return "<pre class='code'>[api_pretty_tcl [my value]] \
-	</pre>"
+    [my object] do_substitutions 0
+    return "<pre class='code'>[api_pretty_tcl [my value]]</pre>"
   }
 }
\ No newline at end of file