Index: Makefile
==================================================================
--- Makefile
+++ Makefile
@@ -309,11 +309,12 @@
 
 $(MTQA_FOSSIL) :
 	fossil clone https://www.kiatoa.com/fossils/megatest_qa $(MTQA_FOSSIL)
 
 clean : 
-	rm -f $(OFILES) $(GOFILES) $(MOFILES) $(TCMTOBJS) $(PREFIX)/megatest $(PREFIX)/dashboard mtest mtutil mtut tcmt ftail.import.scm readline-fix.scm serialize-env share dboard dboard.o megatest.o dashboard.o megatest-fossil-hash.* altdb.scm mofiles/*.o vg.o
+	rm -f $(OFILES) $(GOFILES) $(MOFILES) $(TCMTOBJS) $(PREFIX)/megatest $(PREFIX)/dashboard mtest mtutil mtut tcmt ftail.import.scm readline-fix.scm serialize-env dboard dboard.o megatest.o dashboard.o megatest-fossil-hash.* altdb.scm mofiles/*.o vg.o
+	rm -rf share
 
 #======================================================================
 # Make the records files
 #======================================================================
 

Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -2011,15 +2011,15 @@
       (get-unix-df path)))
 
 (define (get-free-inodes path)
   (if (configf:lookup *configdat* "setup" "free-inodes-script")
       (with-input-from-pipe 
-       (conc (configf:lookup *configdat* "setup" "free-inodes-script") " " path)
-       (lambda ()
-	 (let ((res (read-line)))
-	   (if (string? res)
-	       (string->number res)))))
+	  (conc (configf:lookup *configdat* "setup" "free-inodes-script") " " path)
+	(lambda ()
+	  (let ((res (read-line)))
+	    (if (string? res)
+		(string->number res)))))
       (get-unix-inodes path)))
 
 (define (get-unix-df path)
   (let* ((df-results (process:cmd-run->list (conc "df " path)))
 	 (space-rx   (regexp "([0-9]+)\\s+([0-9]+)%"))
@@ -2035,11 +2035,11 @@
     freespc))
 
 (define (get-unix-inodes path)
   (let* ((df-results (process:cmd-run->list (conc "df -i " path)))
 	 (space-rx   (regexp "([0-9]+)\\s+([0-9]+)%"))
-	 (freenodes    #f))
+	 (freenodes    0)) ;; 0 is a better failsafe than #f here.
     ;; (write df-results)
     (for-each (lambda (l)
 		(let ((match (string-search space-rx l)))
 		  (if match 
 		      (let ((newval (string->number (cadr match))))

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -643,11 +643,11 @@
     (debug:print-info 4 *default-log-port* "test-records=" (hash-table->alist test-records))
     (let ((reglen (configf:lookup *configdat* "setup" "runqueue")))
       (if (> (length (hash-table-keys test-records)) 0)
 	  (let* ((keep-going        #t)
 		 (run-queue-retries 5)
-		 (th1        (make-thread (lambda ()
+		 #;(th1        (make-thread (lambda ()
 					    (handle-exceptions
 						exn
 						(begin
 						  (print-call-chain)
 						  (print " message: " ((condition-property-accessor 'exn 'message) exn)))
@@ -663,13 +663,16 @@
 							       exn
 							       (debug:print 0 *default-log-port* "error in calling find-and-mark-incomplete for run-id " run-id)
 							       (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! th1)
 	    (thread-start! th2)
-	    (thread-join! th1)
+	    ;; (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)
 	    ;; if run-count > 0 call, set -preclean and -rerun STUCK/DEAD
 	    (if (> run-count 0) ;; handle reruns
 		(begin