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.2.1 -r1.91.2.2
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	13 Mar 2008 16:41:02 -0000	1.91.2.1
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	22 Mar 2008 18:31:26 -0000	1.91.2.2
@@ -1493,7 +1493,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]
     }