@@ -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))))
   
 
 ;;======================================================================