Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.25.2.8 -r1.25.2.9
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	5 Jun 2003 00:34:42 -0000	1.25.2.8
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	6 Jun 2003 21:40:37 -0000	1.25.2.9
@@ -460,6 +460,11 @@
     set db_state(handles) [list]
     set db_state(n_handles_used) 0
 
+    
+    ns_log Notice "Huh? Here we go!"
+    set form [ns_getform]
+    set size [ns_set size $form]
+
     #####
     #
     # Initialize the environment: reset ad_conn, and populate it with
@@ -546,13 +551,7 @@
 
     rp_debug -ns_log_level debug -debug t "rp_filter: setting up request: [ns_conn method] [ns_conn url] [ns_conn query]"
 
-    global tcl_site_nodes
-    if [catch {
-      if [catch { array set node $tcl_site_nodes([ad_conn url]) }] {
-	array set node [site_node [ad_conn url]]
-	set tcl_site_nodes([ad_conn url]) [array get node]
-      }
-    } errmsg] {
+    if [catch { array set node [site_node::get -url [ad_conn url]] } errmsg] {
         # log and do nothing
         rp_debug -debug t "error within rp_filter [ns_conn method] [ns_conn url] [ns_conn query].  $errmsg"
     } else {
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]
 
Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.19.2.17 -r1.19.2.18
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	23 May 2003 12:28:59 -0000	1.19.2.17
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	6 Jun 2003 21:40:37 -0000	1.19.2.18
@@ -2491,6 +2491,7 @@
   if {$use_metarefresh_p != 0} {
       util_ReturnMetaRefresh $url 
   } else {
+	  ns_log Notice "Huh? redirecting: $url"
       ns_returnredirect $url
   }
 }