@@ -940,10 +940,11 @@
 (define (runs:rollup-run db keys)
   (let* ((new-run-id      (register-run db keys))
 	 (prev-tests      (test:get-matching-previous-test-run-records db new-run-id "%" "%"))
 	 (curr-tests      (db-get-tests-for-run db new-run-id "%" "%" '() '()))
 	 (curr-tests-hash (make-hash-table)))
+    (db:update-run-event_time db new-run-id)
     ;; index the already saved tests by testname and itempath in curr-tests-hash
     (for-each
      (lambda (testdat)
        (let* ((testname  (db:test-get-testname testdat))
 	      (item-path (db:test-get-item-path testdat))