Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -2661,11 +2661,11 @@
 ;;
 (define (dashboard:update-run-data runnum rdat)
   (let* ((curr-time            (current-seconds))
 	 (runrec               (vector-ref (dboard:rdat-runsbynum rdat) runnum))
 	 (run-id               (simple-run-id runrec))
-	 (last-update          (vector-ref (dboard:rdat-last-updates rdat) run-id))
+	 (last-update          (sparse-vector-ref (dboard:rdat-last-updates rdat) run-id))
 	 ;; filters
 	 (testname-sql-filt    (dboard:rdat-testname-sql-filt    rdat))
 	 ;; (itempath-sql-filt    (dboard:rdat-itempath-sql-filt    rdat))
 	 (test-state-sql-filt  (dboard:rdat-test-state-sql-filt  rdat))  ;; not used yet
 	 (test-status-sql-filt (dboard:rdat-test-status-sql-filt rdat))  ;; not used yet
@@ -2677,14 +2677,14 @@
     (length tests)))
 
 (define (new-runs-updater commondat rdat)
   (let* ((runnum           (dboard:rdat-runnum          rdat)))
     (if (eq? runnum 0)(dashboard:update-runs-data rdat))
-    
-    
-
-
+    (dashboard:update-run-data runnum rdat)
+    (dboard:rdat-runnum-set! rdat (if (>= runnum (vector-length (dboard:rdat-runsbynum rdat)))
+				      0
+				      (+ runnum 1)))
 
     
     ;; (dboard:rdat-last-update-set! rdat (- (current-seconds) 10))