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.3 -r1.4
--- openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	7 Aug 2006 19:10:11 -0000	1.3
+++ openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	1 Oct 2006 19:11:07 -0000	1.4
@@ -12,6 +12,10 @@
   return
 }
 
+if {[catch {ns_conn contentsentlength}]} {
+  ns_log notice "AOLserver is not patched for bgdelivery, NOT loading bgdelivery"
+}
+
 ::xotcl::THREAD create bgdelivery {
   ###############
   # File delivery
@@ -122,9 +126,12 @@
   if {[my write_headers $statuscode $mime_type $size]} {
     set ch [ns_conn channel]
     thread::transfer [my get_tid] $ch
-    throttle get_context
+    if {![my isobject ::xo:cc]} {
+      ::xo::ConnectionContext require
+    }
+    #my log [::xo::cc serialize]
     my do -async deliver $ch $filename \
-	[list [throttle set requestor],[throttle set url] [ns_conn start]]
+	[list [::xo::cc requestor],[::xo::cc url] [ns_conn start]]
     ns_conn contentsentlength $size       ;# maybe overly optimistic
   }
 }