Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1745,10 +1745,13 @@
 	       (conc "DELETE FROM runs WHERE id NOT IN (SELECT DISTINCT r.id FROM runs AS r INNER JOIN tests AS t ON t.run_id=r.id) and last_update < " keep-record-age ";")
 	       ;; remove orphaned test_rundat entries
 	       (conc "DELETE FROM test_rundat where test_id NOT IN (SELECT id FROM tests) ;")
 	       ;; 
 	       (conc "DELETE FROM test_steps WHERE test_id NOT IN (SELECT id FROM tests) and last_update < " keep-record-age " ;")
+               ;; remove orphaned test_dat entries
+	       (conc "DELETE FROM test_data WHERE test_id NOT IN (SELECT id FROM tests) and last_update < " keep-record-age " ;")
+
 	       ))))
     ;; (db:delay-if-busy dbdat)
     ;(debug:print-info 0 *default-log-port*  statements) 
     (sqlite3:with-transaction 
      db

Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -18,7 +18,6 @@
 ;; Always use two or four digit decimal
 ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00..
 
 (declare (unit megatest-version))
 
-(define megatest-version 1.6513)
-
+(define megatest-version 1.6514)