Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.98 -r1.99
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	20 Jul 2007 12:48:44 -0000	1.98
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	20 Jul 2007 13:32:07 -0000	1.99
@@ -3320,11 +3320,11 @@
             return -code error -errorinfo $errorInfo $errMsg
         }
     } errmsg] } {
-        if {[lsearch [file channels] $wfd] >= 0} {
+        if {[info exists wfd] && [lsearch [file channels] $wfd] >= 0} {
             close $wfd
         }
 
-        if {[lsearch [file channels] $rfd] >= 0} {
+        if {[info exists rfd] && [lsearch [file channels] $rfd] >= 0} {
             close $rfd
         }