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.67.2.48 -r1.67.2.49
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	5 Mar 2022 09:40:49 -0000	1.67.2.48
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	8 Oct 2022 19:57:38 -0000	1.67.2.49
@@ -1937,7 +1937,7 @@
     }
   }
 
-  ad_proc -private ::xo::pool_remap_watchdog {} {
+  ad_proc -private ::xo::pool_remap_watchdog {{-maxWaiting 10} {-maxRunning 100}} {
 
     Watchdoc function to ensure liveliness of the server.
 
@@ -1949,7 +1949,6 @@
     init-procs.
 
   } {
-    set maxWaiting 10
     foreach s [ns_info servers] {
       set reqs [ns_server -server $s -pool "" active]
       foreach req $reqs {
@@ -1962,7 +1961,8 @@
         }
       }
       set waiting [ns_server -server $s -pool "" waiting]
-      if {$waiting >= $maxWaiting} {
+      set running [llength $reqs]
+      if {$waiting >= $maxWaiting || $running >= $maxRunning} {
         set threadInfo [ns_server -server $s -pool "" threads]
         lappend threadInfo waiting $waiting
         set message ""