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.7 -r1.67.2.8
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	9 Aug 2019 08:41:44 -0000	1.67.2.7
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	16 Dec 2019 17:55:12 -0000	1.67.2.8
@@ -1698,19 +1698,6 @@
   }
 }
 
-ad_proc string_truncate_middle {{-ellipsis ...} {-len 100} string} {
-  cut middle part of a string in case it is too long
-} {
-  set string [string trim $string]
-  if {[string length $string]>$len} {
-    set half  [expr {($len-2)/2}]
-    set left  [string trimright [string range $string 0 $half]]
-    set right [string trimleft  [string range $string end-$half end]]
-    return $left$ellipsis$right
-  }
-  return $string
-}
-
 namespace eval ::xo {
 
   proc is_ip {key} {