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.82.2.3 -r1.82.2.4
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	28 Dec 2005 23:29:11 -0000	1.82.2.3
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	9 Feb 2006 22:33:38 -0000	1.82.2.4
@@ -1477,17 +1477,16 @@
 
 
 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]
+    proc $filter {why} [list ${filter}_aolserver \$why ]
   }
 
   rename rp_invoke_filter rp_invoke_filter_conn
-  proc   rp_invoke_filter { filter_info why } { rp_invoke_filter_conn {} $filter_info $why }
+  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 }
+  proc   rp_invoke_proc   { argv }            { rp_invoke_proc_conn _ $argv }
 
-  rename rp_handler rp_handler_aolserver
-  proc rp_handler {_} {rp_handler_aolserver}
 }