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.101 -r1.102
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	10 Mar 2010 00:44:03 -0000	1.101
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	11 Mar 2010 11:03:01 -0000	1.102
@@ -1529,14 +1529,17 @@
 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
+    if {[info command ::${filter}_aolserver] eq ""} {
+      rename $filter ${filter}_aolserver
+    }
     proc $filter {why} [list ${filter}_aolserver \$why ]
   }
 
-  rename rp_invoke_filter rp_invoke_filter_conn
+  if {[info command rp_invoke_filter_conn] eq ""} {
+    rename rp_invoke_filter rp_invoke_filter_conn
+    rename rp_invoke_proc   rp_invoke_proc_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 }
 
 }