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 {