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.84 -r1.85
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	7 Sep 2005 16:46:57 -0000	1.84
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	4 Jun 2006 00:45:47 -0000	1.85
@@ -1474,3 +1474,19 @@
 
     return filter_return
 }
+
+
+if {[ns_info name] eq "NaviServer"} {
+  # this is written for NaviServer 4.99.1 or newer
+  foreach filter {rp_filter rp_resources_filter request_denied_filter} {
+    rename $filter ${filter}_aolserver
+    proc $filter {why} [list ${filter}_aolserver \$why ]
+  }
+
+  rename rp_invoke_filter rp_invoke_filter_conn
+  proc   rp_invoke_filter { why filter_info} { rp_invoke_filter_conn _ $filter_info $why}
+  
+  rename rp_invoke_proc   rp_invoke_proc_conn
+  proc   rp_invoke_proc   { argv }            { rp_invoke_proc_conn _ $argv }
+
+}