Index: openacs-4/packages/xotcl-core/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/Attic/chat-procs.tcl,v
diff -u -N -r1.32 -r1.33
--- openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	27 Jun 2018 16:38:25 -0000	1.32
+++ openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	19 Sep 2018 16:19:16 -0000	1.33
@@ -260,7 +260,7 @@
   Chat instproc noencode    {string} {set string}
   Chat instproc encode      {string} {my [:encoder] $string}
   Chat instproc json_encode {string} {
-    string map [list \n \\n \" \\\" ' {\'}] $string
+    string map [list \n \\n \" \\\" ' {\"}] $string
   }
 
   Chat instproc json_encode_msg {msg} {
@@ -271,8 +271,8 @@
     set timeshort [clock format [$msg time] -format {[%H:%M:%S]}]
     set text [:json_encode [$msg msg]]
     foreach var {userlink timeshort} {set $var [:json_encode [set $var]]}
-    return [subst -nocommands {{'messages': [
-            {'user':'$userlink', 'time': '$timeshort', 'msg':'$text'}
+    return [subst -nocommands {{"messages": [
+            {"user": "$userlink", "time": "$timeshort", "msg": "$text"}
            ]\n}
     }]
   }