Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	18 Sep 2003 10:15:41 -0000	1.34
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	18 Sep 2003 20:56:48 -0000	1.35
@@ -372,7 +372,12 @@
 } {
     return the site node id associated with the given object_id
 } {
-    return [get_node_id -url [lindex [get_url_from_object_id -object_id $object_id] 0]]
+    set url  [lindex [get_url_from_object_id -object_id $object_id] 0]
+    if { ![empty_string_p $url] } {
+        return [get_node_id -url]
+    } else {
+        return {}
+    }
 }
 
 ad_proc -public site_node::get_parent_id {