Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -255,13 +255,14 @@
    ;; 'new2old
    'killservers
    'adj-target
    ;; 'old2new
    'new2old
-   (if full
+   ;; (if full
        '(dejunk)
-       '()))
+       ;; '())
+       )
   (if (common:api-changed?)
       (common:set-last-run-version)))
 
 ;; Rotate logs, logic: 
 ;;                 if > 500k and older than 1 week:

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1678,10 +1678,14 @@
 	       "DELETE FROM tests WHERE run_id NOT IN (SELECT DISTINCT id FROM runs);"
 	       ;; delete all runs that are state='deleted'
 	       "DELETE FROM runs WHERE state='deleted';"
 	       ;; delete empty runs
 	       "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);"
+	       ;; remove orphaned test_rundat entries
+	       "DELETE FROM test_rundat where test_id NOT IN (SELECT id FROM tests);"
+	       ;; 
+	       "DELETE FROM test_steps WHERE test_id NOT IN (SELECT id FROM tests);"
 	       ))))
     ;; (db:delay-if-busy dbdat)
     (sqlite3:with-transaction 
      db
      (lambda ()