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.17.2.9 -r1.17.2.10
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	2 May 2003 13:27:15 -0000	1.17.2.9
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	6 Jun 2003 21:40:37 -0000	1.17.2.10
@@ -128,12 +128,6 @@
             nsv_set site_node_urls $node(node_id) $node(url)
         }
 
-        ns_eval {
-            global tcl_site_nodes
-            if {[info exists tcl_site_nodes]} {
-                unset tcl_site_nodes
-            }
-        }
     }
 
     ad_proc -private update_cache {
@@ -143,12 +137,6 @@
             nsv_set site_nodes $node(url) [array get node]
             nsv_set site_node_urls $node(node_id) $node(url)
 
-            ns_eval {
-                global tcl_site_nodes
-                if { [info exists tcl_site_nodes] } {
-                    array unset tcl_site_nodes "${node(url)}*"
-                }
-            }
         } else {
             set url [get_url -node_id $node_id]