Index: commonmod.scm
==================================================================
--- commonmod.scm
+++ commonmod.scm
@@ -172,10 +172,11 @@
 runs:runrec-serverdat
 runs:runrec-transport
 runs:runrec-db
 runs:runrec-top-path
 runs:runrec-run_id
+test:testdat?
 test:get-id
 test:get-run_id
 test:get-test-name
 test:get-state
 test:get-status
@@ -849,10 +850,14 @@
 (define (test:get-test-name vec)(vector-ref vec 2))
 (define (test:get-state vec)    (vector-ref vec 3))
 (define (test:get-status vec)   (vector-ref vec 4))
 (define (test:get-item-path vec)(vector-ref vec 5))
 
+(define (test:testdat? testdat)
+  (and (vector? testdat)
+       (>= (vector-length testdat) 6)))
+
 (define (test:test-get-fullname test)
    (conc (db:test-get-testname test)
 	 (if (equal? (db:test-get-item-path test) "")
 	     ""
 	     (conc "(" (db:test-get-item-path test) ")"))))

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1050,11 +1050,11 @@
 	 )
     ;; create a concise list of test names
     ;;
     (for-each
      (lambda (rundat)
-       (if rundat
+       (if (dboard:rundat? rundat)
 	   (let* ((testdats  (dboard:rundat-tests rundat))
 		  (testnames (map test:test-get-fullname (hash-table-values testdats))))
 	     (dcommon:rundat-copy-tests-to-by-name rundat)
 	     ;; for the normalized list of testnames (union of all runs)
 	     (if (not (and (dboard:tabdat-hide-empty-runs tabdat)

Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -549,11 +549,13 @@
     (if (and (hash-table? src-ht)(hash-table? trg-ht))
 	(begin
 	  (hash-table-clear! trg-ht)
 	  (for-each
 	   (lambda (testdat)
-	     (hash-table-set! trg-ht (test:test-get-fullname testdat) testdat))
+	     (if (test:testdat? testdat)
+		 (hash-table-set! trg-ht (test:test-get-fullname testdat) testdat)
+		 (debug:print 0 *default-log-port* "WARNING: invalid testdat record: "testdat)))
 	   (hash-table-values src-ht)))
 	(debug:print 0 *default-log-port* "WARNING: src-ht " src-ht " trg-ht " trg-ht))))
   
 
 ;;======================================================================