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.87 -r1.88
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	14 Mar 2007 09:55:12 -0000	1.87
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	5 Jun 2007 09:01:15 -0000	1.88
@@ -1451,6 +1451,11 @@
     # Other hostnames map to subsites.
     set node_id [util_memoize [list rp_lookup_node_from_host $host]]
 
+    if {[empty_string_p $node_id]} {
+        set host [regsub "www\." $host ""]
+        set node_id [rp_lookup_node_from_host $host]
+    }
+
     if { $node_id ne "" } {
 	set url [site_node::get_url -node_id $node_id]