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.3.2.3 -r1.3.2.4
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	16 Mar 2003 14:15:38 -0000	1.3.2.3
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	24 Mar 2003 09:13:05 -0000	1.3.2.4
@@ -63,7 +63,7 @@
     if { [lsearch { text/enhanced text/html } $format] != -1 } {
         set check_result [ad_html_security_check $contents]
         if { ![empty_string_p $check_result] } {
-            set message $check_result
+            set message [ad_quotehtml $check_result]
             return 0
         }
     }