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.63 -r1.64
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	1 May 2018 09:34:09 -0000	1.63
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	25 Jul 2018 01:35:53 -0000	1.64
@@ -579,8 +579,8 @@
     Handle richtext transformations using a standardized naming convention.
 
 } {
-    return "'[DoubleApos [list [template::util::richtext::get_property content $value] \
-                               [template::util::richtext::get_property format $value]]]'"
+    return [::ns_dbquotevalue [list [template::util::richtext::get_property content $value] \
+                                   [template::util::richtext::get_property format $value]]]
 }