Index: openacs-4/packages/acs-object-management/tcl/templating-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/tcl/Attic/templating-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-object-management/tcl/templating-procs.tcl	13 Dec 2009 21:14:26 -0000	1.3
+++ openacs-4/packages/acs-object-management/tcl/templating-procs.tcl	10 Nov 2010 18:27:20 -0000	1.4
@@ -119,10 +119,14 @@
 namespace eval template::util::richtext {}
 
 ad_proc template::data::to_sql::richtext { value } {
-    return "'[DoubleApos [list [template::util::richtext::get_property content $value] \
-                               [template::util::richtext::get_property format $value]]]'"
+    return "[list [template::util::richtext::get_property content $value] \
+                  [template::util::richtext::get_property format $value]]"
 }
 
+ad_proc template::data::from_sql::richtext { value } {
+    set value
+}
+
 ad_proc -public template::data::validate::number {
   value_ref
   message_ref