Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -46,10 +46,11 @@
     ;; register-run
     get-tests-tags
     get-tests-for-run
     get-test-id
     get-tests-for-runs-mindata
+    get-tests-for-run-mindata
     get-run-name-from-id
     get-runs
     simple-get-runs
     get-num-runs
     get-all-run-ids
@@ -264,10 +265,11 @@
                    ((get-run-status)               (apply db:get-run-status dbstruct params))
                    ((set-run-status)               (apply db:set-run-status dbstruct params))
                    ((get-tests-for-run)            (apply db:get-tests-for-run dbstruct params))
                    ((get-test-id)                  (apply db:get-test-id dbstruct params))
                    ((get-tests-for-run-mindata)    (apply db:get-tests-for-run-mindata dbstruct params))
+                   ((get-tests-for-runs-mindata)   (apply db:get-tests-for-runs-mindata dbstruct params))
                    ((get-runs)                     (apply db:get-runs dbstruct params))
                    ((simple-get-runs)              (apply db:simple-get-runs dbstruct params))
                    ((get-num-runs)                 (apply db:get-num-runs dbstruct params))
                    ((get-all-run-ids)              (db:get-all-run-ids dbstruct))
                    ((get-prev-run-ids)             (apply db:get-prev-run-ids dbstruct params))

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1711,16 +1711,20 @@
     (hash-table-values tests-ht)
     (lambda (a b) 
       (let ((a-test-name  (db:test-get-testname a))
             (a-item-path  (db:test-get-item-path a))
             (b-test-name  (db:test-get-testname b))
-            (b-item-path  (db:test-get-item-path b)))
-        (cond
-         ((< 0 (string-compare3 a-test-name b-test-name)) #t)
-         ((> 0 (string-compare3 a-test-name b-test-name)) #f)
-         ((< 0 (string-compare3 a-item-path b-item-path)) #t)
-         (else #f)))))))
+            (b-item-path  (db:test-get-item-path b))
+            (a-event-time (db:test-get-event_time a))
+            (b-event-time (db:test-get-event_time b)))
+        (if (not (equal? a-test-name b-test-name))
+            (> a-event-time b-event-time)
+            (cond
+             ((< 0 (string-compare3 a-test-name b-test-name)) #t)
+             ((> 0 (string-compare3 a-test-name b-test-name)) #f)
+             ((< 0 (string-compare3 a-item-path b-item-path)) #t)
+             (else #f))))))))
 
 
 (define (dashboard:run-id->tests-mindat run-id tabdat runs-hash)
   (let* ((run          (hash-table-ref/default runs-hash run-id #f))
          (key-vals     (rmt:get-key-vals run-id))

Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -313,11 +313,12 @@
 	(let* ((test-id    (db:test-get-id hed)) ;; look at the tests-dat spec for locations
 	       (test-name  (db:test-get-testname hed))
 	       (item-path  (db:test-get-item-path hed))
 	       (state      (db:test-get-state hed))
 	       (status     (db:test-get-status hed))
-	       (newitem    (list test-name item-path (list test-id state status))))
+               (event-time (db:test-get-event_time hed))
+	       (newitem    (list test-name item-path (list test-id state status event-time))))
 	  (if (null? tal)
 	      (reverse (cons newitem res))
 	      (loop (car tal)(cdr tal)(cons newitem res)))))))
 
 (define (dcommon:tests-mindat->hash tests-mindat)

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -550,10 +550,13 @@
 
 ;; get stuff via synchash 
 (define (rmt:synchash-get run-id proc synckey keynum params)
   (rmt:send-receive 'synchash-get run-id (list run-id proc synckey keynum params)))
 
+(define (rmt:get-tests-for-run-mindata run-id testpatt states status not-in)
+  (rmt:send-receive 'get-tests-for-run-mindata run-id (list run-id testpatt states status not-in)))
+  
 ;; IDEA: Threadify these - they spend a lot of time waiting ...
 ;;
 (define (rmt:get-tests-for-runs-mindata run-ids testpatt states status not-in)
   (let ((multi-run-mutex (make-mutex))
 	(run-id-list (if run-ids