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.22 -r1.23
--- openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	10 Apr 2009 07:28:51 -0000	1.22
+++ openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	10 Apr 2009 07:42:07 -0000	1.23
@@ -69,7 +69,7 @@
     }
   }
   fileSpooler proc tick {} {
-    my cleanup
+    if {[catch {my cleanup} errorMsg]} {ns_log notice "Error during filespooler cleanup: $errorMsg"}
     my set to [after [my set tick_interval] [list [self] tick]]
   }
   fileSpooler tick