Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	28 Jun 2003 09:24:42 -0000	1.5
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	1 Sep 2003 09:09:30 -0000	1.6
@@ -188,8 +188,8 @@
       if { [info exists element(value)] } {
 
           append output [template::util::richtext::get_property html_value $element(value)]
-          append output "<input type=\"hidden\" name=\"$element(id)\" value=\"$contents\">"
-          append output "<input type=\"hidden\" name=\"$element(id).format\" value=\"$format\">"
+          append output "<input type=\"hidden\" name=\"$element(id)\" value=\"[ad_quotehtml $contents]\">"
+          append output "<input type=\"hidden\" name=\"$element(id).format\" value=\"[ad_quotehtml $format]\">"
       }
   }