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.6 -r1.7
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql	28 Aug 2003 09:41:43 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql	27 Nov 2003 15:25:18 -0000	1.7
@@ -25,4 +25,12 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="site_node::init_cache.get_root_node_id">
+        <querytext>
+            select node_id
+            from site_nodes
+            where parent_id is null
+        </querytext>
+    </fullquery>
+
 </queryset>