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.35 -r1.36
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	18 Sep 2003 20:56:48 -0000	1.35
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	19 Sep 2003 10:15:32 -0000	1.36
@@ -374,7 +374,7 @@
 } {
     set url  [lindex [get_url_from_object_id -object_id $object_id] 0]
     if { ![empty_string_p $url] } {
-        return [get_node_id -url]
+        return [get_node_id -url $url]
     } else {
         return {}
     }