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.19 -r1.67.2.20
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	21 May 2020 14:51:20 -0000	1.67.2.19
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	18 Jun 2020 08:41:47 -0000	1.67.2.20
@@ -449,8 +449,10 @@
     }
     #
     # Handling of longcalls counter
-    #
-    if {$conntime > 3000} {
+    if {$conntime > 3000
+        || [dict get $partialtimes filtertime] > 1.0
+        || [dict get $partialtimes queuetime] > 0.5
+      } {
       if {$url eq "/register/"} {
         set color unexpected
       } elseif {$conntime > 7000} {
@@ -463,13 +465,13 @@
       incr ::count(longcalls:$color)
 
       #
-      # Add url, in case it is not too long
+      # Add URL, in case it is not too long
       #
       set ql [string length $query]
       if {$ql > 0 && $ql < 60} {
         set loggedUrl $url?$query
       } else {
-        set loggedUrl $url
+        set loggedUrl $url?...long-list....
       }
 
       #