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.91 -r1.92
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	12 Oct 2007 07:33:45 -0000	1.91
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	22 Mar 2008 18:31:32 -0000	1.92
@@ -1479,7 +1479,7 @@
     # Other hostnames map to subsites.
     set node_id [util_memoize [list rp_lookup_node_from_host $host]]
 
-    if {[empty_string_p $node_id]} {
+    if {$node_id eq ""} {
         set host [regsub "www\." $host ""]
         set node_id [rp_lookup_node_from_host $host]
     }