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.20.2.1 -r1.20.2.2
--- openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	17 Sep 2013 17:49:23 -0000	1.20.2.1
+++ openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	30 Sep 2013 11:38:40 -0000	1.20.2.2
@@ -60,8 +60,8 @@
     my log "-- msg=$msg"
     
     if {$get_new 
-	&& [info command ::thread::mutex] ne "" 
-	&& [info command ::bgdelivery] ne ""} { 
+	&& [info commands ::thread::mutex] ne "" 
+	&& [info commands ::bgdelivery] ne ""} { 
       # we could use the streaming interface
       my broadcast_msg [Message new -volatile -time [clock seconds] \
 			    -user_id $user_id -msg $msg -color $color]