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.23 -r1.13.2.24
--- openacs-4/packages/boomerang/tcl/boomerang-procs.tcl	29 Aug 2022 16:14:30 -0000	1.13.2.23
+++ openacs-4/packages/boomerang/tcl/boomerang-procs.tcl	29 Aug 2022 17:39:37 -0000	1.13.2.24
@@ -183,6 +183,7 @@
                 #    `nt_con_st`:  `performance.timing.connectStart`
                 #    `nt_con_end`: `performance.timing.connectEnd`
                 #    `nt_req_st`:  `performance.timing.requestStart`
+                #    `nt_load_end`:`performance.timing.loadEventEnd`
 
                 if {[dict exists $entries nt_req_st] && [dict exists $entries nt_nav_st]} {
                     #
@@ -204,6 +205,11 @@
 
                     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]}]
+
+                    if {![dict exists $entries t_done]} {
+                        dict set entries t_done [expr {[dict get $entries nt_load_end] - [dict get $entries nt_nav_st]}]
+                    }
+
                     if {![dict exists $entries nt_domcomp]} {
                         dict set entries nt_processing_time 0
                     } else {
@@ -221,7 +227,7 @@
                         error "cannot determine nt_total_time"
                     }
 
-                    if {[info exists t_done]} {
+                    if {[dict exists $entries t_done]} {
                         #
                         # Sanity checks for the computed fields:
                         # - no *_time can be larger than t_done
@@ -243,9 +249,9 @@
                         if {[dict get $entries nt_total_time] + 500 < $t_done} {
                             ns_log warning "boomerang: nt_total_time [dict get $entries nt_total_time] < t_done $t_done"
                         }
-                        ns_log warning "boomerang: no value for 't_done' in dict $entries"
                         set record 1
                     } else {
+                        ns_log warning "boomerang: no value for 't_done' in dict $entries"
                         set record 0
                     }
                 } else {