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 -r1.33 -r1.34
--- openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	19 Sep 2018 16:19:16 -0000	1.33
+++ openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	19 Sep 2018 17:11:49 -0000	1.34
@@ -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} {