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.21 -r1.22
--- openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	10 Apr 2009 07:09:43 -0000	1.21
+++ openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	10 Apr 2009 07:28:51 -0000	1.22
@@ -54,7 +54,7 @@
     unset ::running($channel,$fd,$filename)
   }
   
-  fileSpooler cleanup {} {
+  fileSpooler proc cleanup {} {
     # This method should not be necessary. However, under unclear conditions,
     # some fcopies seem to go into a stasis. After 2000 seconds, we will kill it.
     foreach {index entry} [array get running] {
@@ -68,7 +68,7 @@
       }
     }
   }
-  fileSpooler tick {} {
+  fileSpooler proc tick {} {
     my cleanup
     my set to [after [my set tick_interval] [list [self] tick]]
   }