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 -N -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 {
Index: openacs-4/packages/acs-tcl/tcl/test/log-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/log-test-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/test/log-test-procs.tcl	10 Jan 2007 21:22:12 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/test/log-test-procs.tcl	4 Mar 2008 13:08:38 -0000	1.5
@@ -38,5 +38,6 @@
             append entry $line \n
         }
     }
+    close $fd
 }
 
Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl,v
diff -u -N -r1.33 -r1.34
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	7 Aug 2007 13:53:25 -0000	1.33
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	4 Mar 2008 13:08:38 -0000	1.34
@@ -1246,6 +1246,7 @@
     set tmp_file [ns_queryget patch_file.tmpfile]
     set tmp_file_channel [open $tmp_file r]
     set content [read $tmp_file_channel]
+    close $tmp_file_channel
 
     return $content
 }
Index: openacs-4/packages/news/www/preview.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/preview.tcl,v
diff -u -N -r1.17 -r1.18
--- openacs-4/packages/news/www/preview.tcl	15 May 2007 20:14:50 -0000	1.17
+++ openacs-4/packages/news/www/preview.tcl	4 Mar 2008 13:08:38 -0000	1.18
@@ -188,7 +188,9 @@
 # if uploaded file, read it into publish_body and massage it
 if {[info exists file_size]} {
     if { $file_size > 0 } {
-        set publish_body [read [open ${text_file.tmpfile}]]
+        set fd [open ${text_file.tmpfile}]
+        set publish_body [read $fd]
+        close $fd
     }
 
     # close any open HTML tags in any case