--- lib/TWiki/Net.pm~	2004-10-13 14:11:16.140625000 +0200
+++ lib/TWiki/Net.pm	2004-10-13 14:14:06.640625000 +0200
@@ -70,7 +70,7 @@
     my $req = "GET $theUrl HTTP/1.0\r\n";
 
     # RNF 22 Jan 2002 Support for vhosts and user authentication.
-    $req .= "Host: $theHost\r\n";
+    $req .= "Host: $theHost:$thePort\r\n";
     if( $theUser && $thePass ) {
 	# Use MIME::Base64 at run-time if using outbound proxy with 
 	# authentication
@@ -84,7 +84,7 @@
     my $proxyHost = &TWiki::Prefs::getPreferencesValue("PROXYHOST");
     my $proxyPort = &TWiki::Prefs::getPreferencesValue("PROXYPORT");
     if($proxyHost && $proxyPort) {
-        $req = "GET http://$theHost$theUrl HTTP/1.0\r\n";
+        $req = "GET http://$theHost:$thePort$theUrl HTTP/1.0\r\n";
         $theHost = $proxyHost;
         $thePort = $proxyPort;
     }