Index: openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	24 Jul 2007 20:52:16 -0000	1.10
+++ openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	20 Sep 2007 11:57:04 -0000	1.11
@@ -237,8 +237,7 @@
   ns_write "HTTP/1.0 200 OK\r\nContent-type: $content_type\r\n\r\n[string repeat { } 1024]"
   set ch [ns_conn channel]
   thread::transfer [my get_tid] $ch
-  my do -async ::Subscriber new -channel $ch -key $key -user_id [ad_conn user_id] -mode $mode
-  my send_to_subscriber $key $initmsg
+  my do ::Subscriber new -channel $ch -key $key -user_id [ad_conn user_id] -mode $mode
 }
 
 bgdelivery proc send_to_subscriber {key msg} {