Index: openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl,v
diff -u -r1.71 -r1.72
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	9 Oct 2024 07:19:38 -0000	1.71
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	28 Oct 2024 14:58:41 -0000	1.72
@@ -1463,7 +1463,9 @@
     dump write
   }
 
-  ad_proc -private ::unmap_pool {
+  namespace eval throttle_mod {}
+
+  ad_proc -private ::throttle_mod::unmap_pool {
     {-pool slow}
     {-ms}
     method
@@ -1967,7 +1969,7 @@
       # monitor thread to do so.
       #
       set prefix [expr {[ns_thread name] eq "::throttle" ? {} : {::throttle do}}]
-      {*}$prefix ::unmap_pool -pool $pool $method $url
+      {*}$prefix ::throttle_mod::unmap_pool -pool $pool $method $url
     }
   }