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.14 -r1.15
--- openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl	1 Sep 2008 17:42:42 -0000	1.14
+++ openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl	24 Sep 2008 09:58:41 -0000	1.15
@@ -297,7 +297,6 @@
     }
     if {[catch {my open_connection} err]} {
       my cancel "error during open connection via $protocol to $host $port: $err"
-      return
     }
   }
 
@@ -352,11 +351,14 @@
   }
 
   HttpCore instproc cancel {reason} {
+    my set status canceled
+    my set cancel_message $reason
     my debug "--- $reason"
     my close
   }
 
   HttpCore instproc finish {} {
+    my set status finished
     my close
     my debug "--- [my host] [my port] [my path] has finished"
   }