Index: openacs-4/packages/news/www/preview.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/preview.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/news/www/preview.tcl	20 Apr 2001 20:51:14 -0000	1.1
+++ openacs-4/packages/news/www/preview.tcl	12 Jan 2002 13:16:02 -0000	1.2
@@ -112,14 +112,17 @@
 
 
 # if uploaded file, read it into publish_body and massage it
-if { $file_size > 0 } {
-    set publish_body [read [open ${text_file.tmpfile}]]
-}
 
-# close any open HTML tags in any case
-set  publish_body [util_close_html_tags $publish_body]
+if {[info exists file_size]} {
+    if { $file_size > 0 } {
+        set publish_body [read [open ${text_file.tmpfile}]]
+    }
 
+    # close any open HTML tags in any case
+    set  publish_body [util_close_html_tags $publish_body]
+}
 
+
 if { [string match $action "News Item"] } {
 
     # form variables for confirmation step