Index: http.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/http/http.tcl,v
retrieving revision 1.41
diff -u -r1.41 http.tcl
--- http.tcl	5 Feb 2002 17:08:04 -0000	1.41
+++ http.tcl	23 May 2002 16:36:01 -0000
@@ -242,6 +242,7 @@
 	-timeout 	0
 	-type           application/x-www-form-urlencoded
 	-queryprogress	{}
+	-myaddr		""
 	state		header
 	meta		{}
 	coding		{}
@@ -257,7 +258,7 @@
     set state(charset)	$defaultCharset
     set options {-binary -blocksize -channel -command -handler -headers \
 	    -progress -query -queryblocksize -querychannel -queryprogress\
-	    -validate -timeout -type}
+	    -validate -timeout -type -myaddr}
     set usage [join $options ", "]
     regsub -all -- - $options {} options
     set pat ^-([join $options |])$
@@ -330,14 +331,20 @@
 	set async ""
     }
 
+    if {[string length $state(-myaddr)] > 0} {
+	set myaddr "-myaddr $state(-myaddr)"
+    } else {
+	set myaddr ""
+    }
+
     # If we are using the proxy, we must pass in the full URL that
     # includes the server name.
 
     if {[info exists phost] && [string length $phost]} {
 	set srvurl $url
-	set conStat [catch {eval $defcmd $async {$phost $pport}} s]
+	set conStat [catch {eval $defcmd $async $myaddr {$phost $pport}} s]
     } else {
-	set conStat [catch {eval $defcmd $async {$host $port}} s]
+	set conStat [catch {eval $defcmd $async $myaddr {$host $port}} s]
     }
     if {$conStat} {
 
