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.1 -r1.2
--- openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl	15 Feb 2007 09:23:32 -0000	1.1
+++ openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl	30 Mar 2007 19:29:56 -0000	1.2
@@ -15,20 +15,21 @@
         {user_agent xohttp/0.1}
       }
 
-  HttpRequest instproc url {url} {
-    my instvar host url path
+  HttpRequest instproc parse_url {} {
+    my instvar url host port path
     if {[regexp {http://([^/]*)(/.*)} $url _ host path]} {
       set port 80
       regexp {^([^:]+):(.*)$} $host _ host port
     } else {
-      error "unsupported or invalid url '[my url]'"
+      error "unsupported or invalid url '$url'"
     }
   }
 
   HttpRequest instproc init {} {
     my instvar S post_data host port
     my set meta [list]
     my set data ""
+    if {[my exists url]} {my parse_url}
     
     if {[catch {set S [socket $host $port]} err]} {
       my cancel "error socket $host $port: $err"