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.50 -r1.51
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	11 Jan 2004 16:33:25 -0000	1.50
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	20 Feb 2004 16:11:50 -0000	1.51
@@ -155,8 +155,13 @@
 ad_proc -private site_node::init_cache {} {
     initialize the site node cache
 } {
-    set root_node_id [db_string get_root_node_id {}]
-    site_node::update_cache -sync_children -node_id $root_node_id
+    nsv_array reset site_nodes [list]
+    nsv_array reset site_node_urls [list]
+
+    set root_node_id [db_string get_root_node_id {} -default {}]
+    if { ![empty_string_p $root_node_id] } {
+        site_node::update_cache -sync_children -node_id $root_node_id
+    }
 }
 
 ad_proc -private site_node::update_cache {