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.28 -r1.29
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	19 May 2003 14:23:48 -0000	1.28
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	29 Jun 2003 23:32:23 -0000	1.29
@@ -133,12 +133,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 {
@@ -148,12 +142,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]