Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -4149,11 +4149,11 @@
           (db:with-db dbstruct #f #f 
             (lambda (dbdat db)
               (sqlite3:fold-row backcons '() db "SELECT id FROM runs"))
           )
          )
-         (changed_run_ids (filter (lambda (run) (member (modulo run 100) changed_run_dbs)) all_run_ids))
+         (changed_run_ids (filter (lambda (run) (member (modulo run (num-run-dbs)) changed_run_dbs)) all_run_ids))
          ;; TODO: couldn't we just use changed_run_ids for run_ids?
          (run_ids 
           (db:with-db dbstruct #f #f 
             (lambda (dbdat db)
               (sqlite3:fold-row backcons '() db "SELECT id FROM runs  WHERE last_update>=?" since-time))

Index: dbfile.scm
==================================================================
--- dbfile.scm
+++ dbfile.scm
@@ -42,10 +42,14 @@
 	commonmod
 	)
 
 ;; (import debugprint)
 
+;; Parameters
+
+(define num-run-dbs           (make-parameter 10))
+
 ;;======================================================================
 ;;  R E C O R D S
 ;;======================================================================
 
 ;; a single Megatest area with it's multiple dbs is
@@ -196,11 +200,11 @@
   (conc apath"/"dbname))
 
 ;; POTENTIAL BUG: this implementation could produce a db file if run-id is neither #f or a number
 (define (dbfile:run-id->dbname run-id)
   (cond
-   ((number? run-id) (conc ".megatest/" (modulo run-id 100) ".db"))
+   ((number? run-id) (conc ".megatest/" (modulo run-id (num-run-dbs)) ".db"))
    ((not run-id)     (conc ".megatest/main.db"))
    (else             run-id)))
 
 ;; Make the dbstruct, setup up auxillary db's and call for main db at least once
 ;;
@@ -805,11 +809,13 @@
 	            (set! fromdat (cons (apply vector a b) fromdat))
 	            (if (> (length fromdat) batch-len)
 		      (begin
 		        (set! fromdats (cons fromdat fromdats))
 		        (set! fromdat  '())
-		        (set! totrecords (+ totrecords 1)))
+		        (set! totrecords (+ totrecords 1))
+                        (thread-sleep! 2)
+                      )
                     )
                  )
 	         (dbr:dbdat-dbh fromdb)
 	         full-sel)
               )

Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -18,6 +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.7014)
+(define megatest-version 1.7015)

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -810,11 +810,11 @@
 		;; 				  (print-call-chain)
 		;; 				  (print " message: " ((condition-property-accessor 'exn 'message) exn)))
 		;; 			      (runs:run-tests-queue run-id runname test-records keyvals flags test-patts required-tests
 		;; 						    (any->number reglen) all-tests-registry)))
 		;; 			  "runs:run-tests-queue"))
-		 (th2        (make-thread (lambda ()			 ;; BBQ: why are we visiting ALL runs here?	    
+		 #;(th2        (make-thread (lambda ()			 ;; BBQ: why are we visiting ALL runs here?	    
 					    ;; (rmt:find-and-mark-incomplete-all-runs))))) CAN'T INTERRUPT IT ...
 					    (let ((run-ids (rmt:get-all-run-ids)))
 					      (for-each (lambda (run-id)
 							  (if keep-going
 							      (handle-exceptions
@@ -822,17 +822,17 @@
 							       (debug:print 0 *default-log-port* "error in calling find-and-mark-incomplete for run-id " run-id ", exn=" exn)
 							       (rmt:find-and-mark-incomplete run-id #f)))) ;; ovr-deadtime))) ;; could be root of https://hsdes.intel.com/appstore/article/#/220546828/main -- Title: Megatest jobs show DEAD even though they are still running (1.64/27)
 							run-ids)))
 					  "runs: mark-incompletes")))
 	    ;; (thread-start! th1)
-	    (thread-start! th2)
+	    ;; (thread-start! th2)
 	    ;; (thread-join! th1)
 	    ;; just do the main stuff in the main thread
 	    (runs:run-tests-queue run-id runname test-records keyvals flags test-patts required-tests
 								    (any->number reglen) all-tests-registry)
 	    (set! keep-going #f)
-	    (thread-join! th2)
+	    #;(thread-join! th2)
 	    ;; if run-count > 0 call, set -preclean and -rerun STUCK/DEAD
 	    (if (> run-count 0) ;; handle reruns
 		(begin
 		  (if (not (hash-table-ref/default flags "-preclean" #f))
 		      (hash-table-set! flags "-preclean" #t))