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 -N -r1.97 -r1.98
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	16 Jul 2007 00:54:16 -0000	1.97
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	20 Jul 2007 12:48:44 -0000	1.98
@@ -3319,7 +3319,17 @@
             global errorInfo
             return -code error -errorinfo $errorInfo $errMsg
         }
-    } errmsg] } {return -1}
+    } errmsg] } {
+        if {[lsearch [file channels] $wfd] >= 0} {
+            close $wfd
+        }
+
+        if {[lsearch [file channels] $rfd] >= 0} {
+            close $rfd
+        }
+
+        set page -1
+    }
     
     return $page
 }