Index: openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl	10 Jan 2007 21:22:12 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl	4 Mar 2008 13:08:37 -0000	1.10
@@ -75,6 +75,8 @@
         }
     }
 
+    close $csv_stream
+
     # Return the list of objects
     return $list_of_object_ids
 }
@@ -133,6 +135,10 @@
         # Now we are ready to process the code block
         set errno [catch { uplevel 1 $code_block } error]
 
+	if {$errno > 0} {
+	  close $csv_stream
+	}
+
         # handle error, return, break, continue
 	# (source: http://wiki.tcl.tk/unless last case)
 	switch -exact -- $errno {