Index: openacs-4/packages/boomerang/tcl/boomerang-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/boomerang/tcl/boomerang-procs.tcl,v diff -u -r1.13.2.1 -r1.13.2.2 --- openacs-4/packages/boomerang/tcl/boomerang-procs.tcl 4 Aug 2019 17:29:12 -0000 1.13.2.1 +++ openacs-4/packages/boomerang/tcl/boomerang-procs.tcl 5 Aug 2019 11:26:29 -0000 1.13.2.2 @@ -186,13 +186,14 @@ # - no *_time must be negative # - check for unrealistic high t_done times (caused be technicalities) set t_done [dict get $entries t_done] + set max_time [expr {$t_done + 1}] set time_fields { nt_start_time nt_tcp_time nt_request_time nt_response_time nt_processing_time nt_total_time } foreach time_field $time_fields { set v [dict get $entries $time_field] - if {$v < 0 || $v > $t_done} { + if {$v <= 0 || $v >= $max_time} { ns_log Warning "boomerang: strange value for $time_field: <$v> computed from $entries" dict set entries $time_field 0 }