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.11 -r1.11.2.1
--- openacs-4/packages/acs-tcl/tcl/json-procs.tcl	25 Jul 2018 21:19:26 -0000	1.11
+++ openacs-4/packages/acs-tcl/tcl/json-procs.tcl	13 Jul 2020 12:02:33 -0000	1.11.2.1
@@ -396,7 +396,7 @@
             lappend values "\"$key\":[util::json::gen_inner $val]"
         }
     }
-    return "\{[join $values ,]\}"
+    return "\{[ns_dbquotelist $values]\}"
 }
 
 ad_proc -private util::json::array2json {arrayVal} {
@@ -414,7 +414,7 @@
             lappend values [util::json::gen_inner $val]
         }
     }
-    return "\[[join $values ,]\]"
+    return "\[[ns_dbquotelist $values]\]"
 }
 
 ad_proc util::json::gen {value} {