Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	16 Sep 2002 12:32:39 -0000	1.20
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	16 Sep 2002 12:45:21 -0000	1.21
@@ -489,8 +489,14 @@
     # -------------------------------------------------------------------------
 
     # Force the URL to look like [ns_conn location], if desired...
+
+    # JCD:  Only do this if ForceHostP set and root is {}
+    # if root non empty then we had a hostname based subsite and 
+    # should not redirect since we got a hostname we know about.
+
     set acs_kernel_id [util_memoize ad_acs_kernel_id]
-    if { [ad_parameter -package_id $acs_kernel_id ForceHostP request-processor 0] } {
+    if { [empty_string_p $root] 
+         && [ad_parameter -package_id $acs_kernel_id ForceHostP request-processor 0] } { 
 	set host_header [ns_set iget [ns_conn headers] "Host"]
 	regexp {^([^:]*)} $host_header "" host_no_port
 	regexp {^https?://([^:]+)} [ns_conn location] "" desired_host_no_port