Could someone perhaps apply this? I pasted in the patch below (the bug tracker is too big a pain).
Index: utilities-procs.tcl
===================================================================
RCS file: /usr2/cvsroot/ctk/packages/acs-tcl/tcl/utilities-procs.tcl,v
retrieving revision 1.1.1.1
diff -u -u -r1.1.1.1 utilities-procs.tcl
--- utilities-procs.tcl 7 Jun 2004 09:16:44 -0000 1.1.1.1
+++ utilities-procs.tcl 28 Jan 2005 09:00:35 -0000
@@ -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 \
