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 -N -r1.11 -r1.12
--- openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	20 Sep 2007 11:57:04 -0000	1.11
+++ openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	11 Feb 2008 02:20:08 -0000	1.12
@@ -207,8 +207,10 @@
   blocking a request thread. This is especially important when large files are 
   requested over slow (e.g. dial-ip) connections.
 } {
-  #ns_log notice "statuscode = $statuscode, filename=$filename"
+  ns_log notice "statuscode = $statuscode, filename=$filename"
   set size [file size $filename]
+  ns_setexpires 1000000
+  ns_log notice "expires-set $filename"
   if {[my write_headers $statuscode $mime_type $size]} {
     set ch [ns_conn channel]
     thread::transfer [my get_tid] $ch