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.70.2.5 -r1.70.2.6
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	23 Dec 2004 09:48:25 -0000	1.70.2.5
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Jan 2005 17:10:57 -0000	1.70.2.6
@@ -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"
         if {$rqset != ""} {
             for {set i 0} {$i < [ns_set size $rqset]} {incr i} {
                 _ns_http_puts $timeout $wfd \