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.41 -r1.42
--- openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	6 Dec 2012 11:55:33 -0000	1.41
+++ openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	6 Dec 2012 12:03:52 -0000	1.42
@@ -78,7 +78,7 @@
     if {[info exists $k]} {
 	set value [set $k]
 	ns_log notice "resubmit: canceling currently running request $context  // closing $value"
-        lset $value fd0 channel0 client_data0 filename0
+        lassign $value fd0 channel0 client_data0 filename0
 	my end-delivery -client_data $client_data0 $filename0 $fd0 $channel0 -1 
     }
     set $k [list $fd $channel $client_data $filename]