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.20 -r1.67.2.21
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	18 Jun 2020 08:41:47 -0000	1.67.2.20
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	1 Jul 2020 08:11:40 -0000	1.67.2.21
@@ -465,13 +465,15 @@
       incr ::count(longcalls:$color)
 
       #
-      # Add URL, in case it is not too long
+      # Add query to URL, truncate 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?...long-list....
+      if {$ql > 0} {
+        if $ql < 60} {
+          set loggedUrl $url?$query
+        } else {
+          set loggedUrl $url?[sring range $query 0 57]...
+        }
       }
 
       #