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.19.2.9 -r1.19.2.10
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	26 Jan 2006 22:19:54 -0000	1.19.2.9
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	21 Apr 2006 18:04:38 -0000	1.19.2.10
@@ -237,7 +237,7 @@
 
       append output [textarea_internal "$element(id)" attributes $contents]
       if { $htmlarea_p } {
-          append output "<input name='$element(id).format' value='text/html' type='hidden'/>"
+          append output "<input name=\"$element(id).format\" value=\"text/html\" type=\"hidden\"/>"
       } else {
           append output "<br/>Format: [menu $element(id).format [template::util::richtext::format_options] $format attributes]"
       }
@@ -433,8 +433,8 @@
     # Display mode
     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='[ad_quotehtml $contents]'>"
-      append output "<input type='hidden' name='$element(id).format' value='[ad_quotehtml $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]\">"
     }
   }