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.41.2.3 -r1.41.2.4 --- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl 29 Sep 2013 19:01:33 -0000 1.41.2.3 +++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl 29 Sep 2013 19:08:29 -0000 1.41.2.4 @@ -381,7 +381,7 @@ lappend trend $n set lt [llength $trend] if {$lt > [my nr_trend_elements]} { - set trend [lrange $trend [expr {$lt-[my nr_trend_elements]}] end] + set trend [lrange $trend $lt-[my nr_trend_elements] end] } # # stats keeps nr_stats_elements highest values with time stamp