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.13 -r1.14
--- openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	7 Jun 2007 11:55:47 -0000	1.13
+++ openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	18 Jun 2007 16:19:49 -0000	1.14
@@ -39,7 +39,9 @@
     set msg     [ad_quotehtml $msg]
     my log "-- msg=$msg"
     
-    if {$get_new && [info command ::thread::mutex] ne ""} { 
+    if {$get_new 
+	&& [info command ::thread::mutex] ne "" 
+	&& [info command ::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]