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.153.2.26 -r1.153.2.27
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	26 Sep 2020 11:40:52 -0000	1.153.2.26
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	28 Oct 2020 15:39:19 -0000	1.153.2.27
@@ -494,7 +494,7 @@
     @author Don Baccus (dhogaza@pacifier.com)
 
 } {
-    if {[info commands ::valgrind] ne ""} {
+    if {[namespace which ::valgrind] ne ""} {
         ::valgrind start
     }
 
@@ -1982,18 +1982,18 @@
     # this is written for NaviServer 4.99.1 or newer
     foreach filter {rp_filter rp_resources_filter rp_request_denied_filter} {
         set cmd ${filter}_aolserver
-        if {[info commands $cmd] ne ""} {rename $cmd ""}
+        if {[namespace which $cmd] ne ""} {rename $cmd ""}
         rename $filter $cmd
         proc $filter {why} "$cmd \$why"
     }
 
     set cmd rp_invoke_filter_conn
-    if {[info commands $cmd] ne ""} {rename $cmd ""}
+    if {[namespace which $cmd] ne ""} {rename $cmd ""}
     rename rp_invoke_filter $cmd
     proc   rp_invoke_filter { why filter_info} "$cmd _ \$filter_info \$why"
 
     set cmd rp_invoke_proc_conn
-    if {[info commands $cmd] ne ""} {rename $cmd ""}
+    if {[namespace which $cmd] ne ""} {rename $cmd ""}
     rename rp_invoke_proc   $cmd
     proc   rp_invoke_proc   { argv } "$cmd _ \$argv"
 }