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 -N -r1.2 -r1.3
--- openacs-4/packages/boomerang/tcl/boomerang-procs.tcl	4 Jan 2018 11:26:23 -0000	1.2
+++ openacs-4/packages/boomerang/tcl/boomerang-procs.tcl	8 Jan 2018 09:51:12 -0000	1.3
@@ -56,7 +56,8 @@
             nt_res_end nt_res_st nt_spdy nt_ssl_st nt_unload_end
             nt_unload_st
 
-            nt_start_time nt_tcp_time nt_request_time nt_response_time nt_processing_time
+            nt_start_time nt_tcp_time nt_request_time nt_response_time
+            nt_processing_time nt_total_time
 
             dom.res dom.doms dom.ln dom.sz dom.img dom.script dom.script.ext dom.iframe dom.link
 
@@ -166,12 +167,13 @@
                     dict set entries nt_request_time [expr {[dict get $entries nt_res_st] - [dict get $entries nt_req_st]}]
                     dict set entries nt_response_time [expr {[dict get $entries nt_res_end] - [dict get $entries nt_res_st]}]
                     dict set entries nt_processing_time [expr {[dict get $entries nt_domcomp] - [dict get $entries nt_res_end]}]
+                    dict set entries nt_total_time [expr {[dict get $entries nt_load_end] - [dict get $entries nt_nav_st]}]
 
                     #
-                    # Sanity check for the computed fields:
+                    # Sanity checks for the computed fields:
                     # - no *_time can be larger than t_done
                     # - no *_time must be negative
-                    #
+                    # - check for unrealistic high t_done times (caused be technicalities)
                     set t_done [dict get $entries t_done]
                     set time_fields { nt_start_time nt_tcp_time nt_request_time nt_response_time nt_processing_time }
                     foreach time_field $time_fields {
@@ -181,6 +183,9 @@
                             dict set entries $time_field 0
                         }
                     }
+                    if {[dict get $entries $nt_total_time] < $t_done} {
+                        ns_log Warning "boomerang: nt_total_time $nt_total_time < t_done $t_done"
+                    }
                     set record 1
                 } else {
                     ns_log notice "boomerang: no nt_con_st value in $entries"