Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql	9 Mar 2007 16:45:00 -0000	1.12
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql	13 Mar 2007 09:09:04 -0000	1.13
@@ -66,4 +66,12 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="site_node::get_url_from_object_id.get_node_id">
+        <querytext>
+            select node_id
+            from site_nodes
+            where object_id = :object_id
+        </querytext>
+    </fullquery>
+
 </queryset>