Index: openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl	29 Aug 2008 22:28:41 -0000	1.13
+++ openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl	1 Sep 2008 17:42:42 -0000	1.14
@@ -377,7 +377,7 @@
     set n [my getLine response]
     switch -exact -- $n {
       -2 {my cancel premature-eof; return}
-      -1 {return}
+      -1 {my finish; return}
     }
     if {[regexp {^HTTP/([0-9.]+) +([0-9]+) *} $response _ \
 	     responseHttpVersion status_code]} {
@@ -421,6 +421,7 @@
     } else {
       my set data [read [my set S]]
     }
+    my finish
   }
 
   HttpCore instproc set_status {key newStatus {value ""}} {