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.37 -r1.38
--- openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	4 Oct 2018 16:36:23 -0000	1.37
+++ openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	6 Nov 2018 11:12:56 -0000	1.38
@@ -143,11 +143,11 @@
   }
 
   Chat instproc sweeper {} {
-    :log "--core-chat starting"
+    #:log "--core-chat starting"
     foreach {user timestamp} [nsv_array get ${:array}-last-activity] {
-      ns_log Notice "--core-chat at user $user with $timestamp"
+      #ns_log notice "--core-chat at user $user with $timestamp"
       set ago [expr {(${:now} - $timestamp) / 1000}]
-      ns_log Notice "--core-chat Checking: now=${:now}, timestamp=$timestamp, ago=$ago"
+      #ns_log notice "--core-chat Checking: now=${:now}, timestamp=$timestamp, ago=$ago"
       # was 1200
       if {$ago > 300} {
         :logout -user_id $user -msg "auto logout"
@@ -161,7 +161,7 @@
 
   Chat instproc logout {{-user_id ""} {-msg ""}} {
     set user_id [expr {$user_id ne "" ? $user_id : ${:user_id}}]
-    ns_log Notice "--core-chat User $user_id logging out of chat"
+    ns_log notice "--core-chat User $user_id logging out of chat"
     if {${:logout_messages_p}} {
       if {$msg eq ""} {set msg [_ chat.has_left_the_room].}
       :add_msg -uid $user_id -get_new false $msg
@@ -302,7 +302,7 @@
   }
 
   Chat instproc broadcast_msg {msg} {
-    :log "--chat broadcast_msg"
+    #:log "--chat broadcast_msg"
     ::xo::clusterwide \
         bgdelivery send_to_subscriber chat-[:chat_id] [:json_encode_msg $msg]
   }
@@ -330,10 +330,10 @@
   ############################################################################
   Class create ChatClass -superclass ::xotcl::Class
   ChatClass method sweep_all_chats {} {
-    :log "-- starting"
+    #:log "-- starting"
     foreach nsv [nsv_names "[self]-*-seen"] {
       if { [regexp "[self]-(\[0-9\]+)-seen" $nsv _ chat_id] } {
-        :log "--Chat_id $chat_id"
+        #:log "--Chat_id $chat_id"
         :new -volatile -chat_id $chat_id -user_id 0 -session_id 0 -init -sweeper
       }
     }