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.23.2.6 -r1.23.2.7
--- openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	22 Nov 2016 18:34:35 -0000	1.23.2.6
+++ openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	24 Nov 2016 14:53:25 -0000	1.23.2.7
@@ -66,7 +66,7 @@
   }
 
   Chat instproc add_msg {{-get_new:boolean true} {-uid ""} msg} {
-    my log "--chat adding $msg"
+    # my log "--chat adding $msg"
     my instvar array now
     set user_id [expr {$uid ne "" ? $uid : [my set user_id]}]
     set color   [my user_color $user_id]