Index: openacs-4/packages/news/www/preview.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/preview.tcl,v
diff -u -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