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.68 -r1.69
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	3 Sep 2024 15:37:54 -0000	1.68
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	11 Sep 2024 06:15:56 -0000	1.69
@@ -256,8 +256,9 @@
     seconds ++
     :update_threads_state
 
-    set fetchDest [expr {[dict exists $context Sec-Fetch-Dest] ? [dict get $context Sec-Fetch-Dest] : "document"}]
-    set range     [expr {[dict exists $context Range]          ? [dict get $context Range]          : ""}]
+    set fetchDest [expr {[dict exists $context Sec-Fetch-Dest]   ? [dict get $context Sec-Fetch-Dest] : "document"}]
+    set range     [expr {[dict exists $context Range]            ? [dict get $context Range]          : ""}]
+    set ajax_p    [expr {[dict get $context X-Requested-With] eq "XMLHttpRequest"}]
 
     #
     # Check whether all request monitor performance tracking is turned
@@ -278,6 +279,7 @@
         $fetchDest in $::never_blocked_fetchDest
         || $range ne ""
         || [dict get $context pool] eq "fast"
+        || $ajax_p
         || [string match "image/*" $content_type]
         || [string match "video/*" $content_type]
         || $content_type in {
@@ -1808,6 +1810,7 @@
                [list \
                     pool [ns_conn pool] \
                     Sec-Fetch-Dest [ns_set iget $hdrs Sec-Fetch-Dest] \
+                    X-Requested-With [ns_set iget $hdrs X-Requested-With] \
                     Range [ns_set iget $hdrs Range] \
                    ]] \
       toMuch ms repeat