Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -726,11 +726,11 @@
   (let ((res 0))
     (sqlite3:for-each-row
      (lambda (count)
        (set! res count))
      db
-     "SELECT count(id) FROM tests WHERE state in ('RUNNING','LAUNCHED','REMOTEHOSTSTART','NOT_STARTED');")
+     "SELECT count(id) FROM tests WHERE state in ('RUNNING','LAUNCHED','REMOTEHOSTSTART');")
     res))
 
 (define (db:get-count-tests-running-in-jobgroup db jobgroup)
   (if (not jobgroup)
       0 ;; 
@@ -1025,11 +1025,11 @@
 ;;======================================================================
 
 (define (db:updater)
   (debug:print 4 "INFO: Starting cache processing")
   (let loop ((start-time (current-time)))
-    (thread-sleep! 5) ;; move save time around to minimize regular collisions?
+    (thread-sleep! 10) ;; move save time around to minimize regular collisions?
     (db:write-cached-data)
     (loop start-time)))
 
 (define (cdb:test-set-status-state test-id status state msg)
   (debug:print 4 "INFO: cdb:test-set-status-state test-id=" test-id ", status=" status ", state=" state ", msg=" msg)

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -350,11 +350,12 @@
 	  (let* ((host:port (db:get-var db "SERVER")) ;; this doen't support multiple servers BUG!!!!
 		 (th2 (server:start db (args:get-arg "-server")))
 		 (th3 (make-thread (lambda ()
 				     (server:keep-running db host:port)))))
 	    (thread-start! th3)
-	    (thread-join! th3))
+	    (thread-join! th3)
+	    (set! *didsomething* #t))
 	  (debug:print 0 "ERROR: Failed to setup for megatest"))))
 
 ;;======================================================================
 ;; full run
 ;;======================================================================

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -634,17 +634,17 @@
 		(if testdat
 		    (string->symbol (test:get-state testdat))
 		    'failed-to-insert))
 	((failed-to-insert)
 	 (debug:print 0 "ERROR: Failed to insert the record into the db"))
-	((NOT_STARTED COMPLETED)
+	((NOT_STARTED COMPLETED DELETED)
 	 (let ((runflag #f))
 	   (cond
 	    ;; -force, run no matter what
 	    (force (set! runflag #t))
 	    ;; NOT_STARTED, run no matter what
-	    ((equal? (test:get-state testdat) "NOT_STARTED")(set! runflag #t))
+	    ((member (test:get-state testdat) '("DELETED" "NOT_STARTED"))(set! runflag #t))
 	    ;; not -rerun and PASS, WARN or CHECK, do no run
 	    ((and (or (not rerun)
 		      keepgoing)
 		  ;; Require to force re-run for COMPLETED or *anything* + PASS,WARN or CHECK
 		  (or (member (test:get-status testdat) '("PASS" "WARN" "CHECK"))

Index: tests/fullrun/config/mt_include_1.config
==================================================================
--- tests/fullrun/config/mt_include_1.config
+++ tests/fullrun/config/mt_include_1.config
@@ -1,8 +1,8 @@
 [setup]
 # exectutable /path/to/megatest
-max_concurrent_jobs 30
+max_concurrent_jobs 50
 linktree /tmp/mt_links
 
 [jobtools]
 useshell yes
 # ## launcher launches jobs, the job is managed on the target host