Index: openacs-4/packages/acs-tcl/tcl/json-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/json-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/json-procs.tcl	27 Mar 2018 12:22:17 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/json-procs.tcl	25 Jul 2018 01:50:00 -0000	1.10
@@ -448,7 +448,7 @@
         true { return 1 }
         null -
         "" { return null }
-        default { return "'[DoubleApos $value]'" }
+        default { return "[::ns_dbquotevalue $value]" }
     }
 }