Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.81 -r1.82
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	24 Feb 2005 11:16:32 -0000	1.81
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	24 Feb 2005 13:33:02 -0000	1.82
@@ -1529,6 +1529,7 @@
     set wfd [lindex $fds 1]
     if { [catch {
         _ns_http_puts $timeout $wfd "$method $uri HTTP/1.0\r"
+        _ns_http_puts $timeout $wfd "Host: $host\r"
         if {$rqset != ""} {
             for {set i 0} {$i < [ns_set size $rqset]} {incr i} {
                 _ns_http_puts $timeout $wfd \