Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -625,11 +625,11 @@
 					     (let ((key  (car keypatt))
 						   (patt (cadr keypatt)))
 					       (db:patt->like key patt)))
 					   keypatts)
 				      " AND ")))
-		           " ORDER BY event_time DESC "
+		           " AND state != 'DELETED' ORDER BY event_time DESC "
 		           (if (number? count)
 		               (conc " LIMIT " count)
 		               "")
 		           (if (number? offset)
 		               (conc " OFFSET " offset)
@@ -650,11 +650,11 @@
     (debug:print-info 11 "db:get-num-runs START " runpatt)
     (sqlite3:for-each-row 
      (lambda (count)
        (set! numruns count))
      db
-     "SELECT COUNT(id) FROM runs WHERE runname LIKE ?;" runpatt)
+     "SELECT COUNT(id) FROM runs WHERE runname LIKE ? AND state != 'DELETED';" runpatt)
     (debug:print-info 11 "db:get-num-runs END " runpatt)
     numruns))
 
 ;; use (get-value-by-header (db:get-header runinfo)(db:get-row runinfo))
 (define (db:get-run-info db run-id)
@@ -669,11 +669,11 @@
 	(debug:print-info 11 "db:get-run-info run-id: " run-id " header: " header " keystr: " keystr)
 	(sqlite3:for-each-row
 	 (lambda (a . x)
 	   (set! res (apply vector a x)))
 	 db
-	 (conc "SELECT " keystr " FROM runs WHERE id=?;")
+	 (conc "SELECT " keystr " FROM runs WHERE id=? AND state != 'DELETED';")
 	 run-id)
 	(debug:print-info 11 "db:get-run-info run-id: " run-id " header: " header " keystr: " keystr)
 	(let ((finalres (vector header res)))
 	  ;; (hash-table-set! *run-info-cache* run-id finalres)
 	  finalres)))
@@ -684,11 +684,14 @@
   (debug:print-info 11 "db:set-comment-for-run END run-id: " run-id " comment: " comment))
 
 ;; does not (obviously!) removed dependent data. But why not!!?
 (define (db:delete-run db run-id)
   (common:clear-caches) ;; don't trust caches after doing any deletion
-  (sqlite3:execute db "DELETE FROM runs WHERE id=?;" run-id))
+  (sqlite3:execute db "UPDATE runs SET state='DELETED' WHERE id=?;" run-id))
+;;  (sqlite3:execute db "DELETE FROM runs WHERE id=?;" run-id))
+
+
 
 (define (db:update-run-event_time db run-id)
   (debug:print-info 11 "db:update-run-event_time START run-id: " run-id)
   (sqlite3:execute db "UPDATE runs SET event_time=strftime('%s','now') WHERE id=?;" run-id)
   (debug:print-info 11 "db:update-run-event_time END run-id: " run-id)) 

Index: tests/Makefile
==================================================================
--- tests/Makefile
+++ tests/Makefile
@@ -69,15 +69,15 @@
 test7: 
 	@echo Only a/c testname c should remain. If there is a run a/b/c then there is a cache issue.
 	(cd simplerun; \
 	 $(MEGATEST) -server - -daemonize; \
          $(MEGATEST) -remove-runs -target %/% :runname % -testpatt %; \
-         $(MEGATEST) -runtests % -target a/b :runname c; \
+         $(MEGATEST) -runtests %  -target a/b :runname c; sleep 5; \
 	 $(MEGATEST) -remove-runs -target a/c :runname c; \
-	 $(MEGATEST) -runtests % -target a/c :runname c; \
+	 $(MEGATEST) -runtests %  -target a/c :runname c; \
 	 $(MEGATEST) -remove-runs -target a/b :runname c -testpatt % ; \
-	 $(MEGATEST) -runtests % -target a/d :runname c;$(MEGATEST) -list-runs %|egrep ^Run:) > test7.log 2> test7.log 
+	 $(MEGATEST) -runtests %  -target a/d :runname c;$(MEGATEST) -list-runs %|egrep ^Run:) > test7.log 2> test7.log 
 	logpro test7.logpro test7.html < test7.log
 	@echo 
 	@echo Run \"firefox test7.html\" to see the results.
 
 cleanprep : ../*.scm Makefile */*.config