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.21 -r1.22
--- openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	27 Oct 2014 16:42:01 -0000	1.21
+++ openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	27 Apr 2015 15:28:21 -0000	1.22
@@ -16,7 +16,7 @@
         {mode default}
         {encoder urlencode} 
         {timewindow 600} 
-        {sweepinterval 600}
+        {sweepinterval 599}
       }
 
   Chat instproc init {} {
@@ -243,8 +243,7 @@
   Chat instproc noencode    {string} {set string}
   Chat instproc encode      {string} {my [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} {