Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -43,11 +43,11 @@
 
 (include "common_records.scm")
 
 (define (remove-files filespec)
   (let ((files (glob filespec)))
-    (for-each delete-file files)))
+    (for-each delete-file* files)))
 
 (define (stop-the-train)
   (thread-start! (make-thread (lambda ()
 				(let loop ()
 				  (if (and *toppath*

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -3828,11 +3828,12 @@
   (let* ((mtdb-path (conc *toppath* "/.mtdb/main.db"))
          (target (args:get-arg "-target"))
          (commondat       (dboard:commondat-make)))
     (if target
         (begin
-          (args:remove-arg-from-ht "-target")
+          (hash-table-delete! args:arg-hash "-target")  ;; workaround for the following commented out function
+          ;; (args:remove-arg-from-ht "-target")   This function is in mtargs/mtargs.scm, but it's in an egg that is not in the current build of chicken 4.
           (dboard:commondat-target-set! commondat target)
         )
     )
 
     (if (not (launch:setup))

Index: dbfile.scm
==================================================================
--- dbfile.scm
+++ dbfile.scm
@@ -446,11 +446,12 @@
 				 (if journal-mode
 				     (sqlite3:execute db (conc "PRAGMA journal_mode = "journal-mode";")))
 				 (if (and init-proc (or force-init
 							(not db-exists)))
 				     (init-proc db))
-				 db)))
+				 db))
+                             expire-time: 30)
                             (begin
 			      (if (file-exists? fname )
                                   (let ((db (sqlite3:open-database fname)))
 				    ;; pragmas synchronous not needed because this db is used read-only
 				    ;; (sqlite3:execute db (conc "PRAGMA synchronous = "mode";")
@@ -1513,11 +1514,11 @@
                 #f 
                 (with-input-from-file fname
 	  	  (lambda ()
 		    (equal? key-string (read-line)))))
               (begin
-                 (dbfile:print-err "dbfile:simple-file-lock created " fname " but it was gone 3 seconds later")
+                 (dbfile:print-err "dbfile:simple-file-lock created " fname " but it was gone 0.25 seconds later")
 	         #f
               )
           )
        )
     )

Index: dbmod.scm
==================================================================
--- dbmod.scm
+++ dbmod.scm
@@ -522,11 +522,11 @@
 	  ;; done
 	  (debug:print 2 *default-log-port* "Attaching "destdbfile" as auxdb")
 	  (handle-exceptions
 	      exn
 	      (begin
-		(debug:print 0 "ATTACH failed, exiting. exn="(condition->list exn))
+		(debug:print 0 *default-log-port* "ATTACH failed, exiting. exn="(condition->list exn))
 		(exit 1))
 	    (sqlite3:execute dbh (conc "ATTACH '"destdbfile"' AS auxdb;")))
 	  (for-each
 	   (lambda (table)
 	     (let* ((dummy (debug:print 2 *default-log-port* "Doing table " table))

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -940,11 +940,11 @@
 		  (let ((tmpfile  (conc fulldir "/.megatest.cfg." (current-seconds)))
 			(targfile (conc fulldir "/.megatest.cfg-"  megatest-version "-" megatest-fossil-hash))
 			(rconfig  (conc fulldir "/.runconfig." megatest-version "-" megatest-fossil-hash)))
 		    (if (common:file-exists? rconfig) ;; only cache megatest.config AFTER runconfigs has been cached
 			(begin
-			  (debug:print-info 0 *default-log-port* "Caching megatest.config in " tmpfile)
+			  (debug:print-info 2 *default-log-port* "Caching megatest.config in " tmpfile)
                           (if (not (common:in-running-test?))
                               (configf:write-alist *configdat* tmpfile))
 			  (system (conc "ln -sf " tmpfile " " targfile))))
 		    )))
 	    (debug:print-info 1 *default-log-port* "No linktree yet, no caching configs.")))))

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -111,11 +111,17 @@
 
 ;; load the ~/.megatestrc file, put (use trace)(trace-call-sites #t)(trace function-you-want-to-trace) in this file
 ;;
 (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.megatestrc")))
   (if (common:file-exists? debugcontrolf)
-      (load debugcontrolf)))
+    (begin
+      ;; for some reason, debug:print does not work here. Had to use print.
+      (print (conc "WARNING: loading " debugcontrolf))
+      (load debugcontrolf)
+    )
+  )
+)
 
 ;; usage logging, careful with this, it is not designed to deal with all real world challenges!
 ;;
 (if (and *usage-log-file*
          (file-write-access? *usage-log-file*))

Index: mtargs/mtargs.scm
==================================================================
--- mtargs/mtargs.scm
+++ mtargs/mtargs.scm
@@ -20,10 +20,11 @@
     (
      arg-hash
      get-arg
      get-arg-number
      get-arg-from
+     remove-arg-from-ht
      get-args
      usage
      print-args
      any-defined?
      ) 
@@ -64,10 +65,14 @@
 
 (define (get-arg-from ht arg . default)
   (if (null? default)
       (hash-table-ref/default ht arg #f)
       (hash-table-ref/default ht arg (car default))))
+
+(define (remove-arg-from-ht arg)
+      (hash-table-delete! arg-hash arg)
+)
 
 (define (get-args args params switches arg-hash num-needed)
   (let* ((numtargs (length args))
 	 (adj-num-needed (if num-needed (+ num-needed 2) #f)))
     (if (< numtargs (if adj-num-needed adj-num-needed 2))

Index: portlogger.scm
==================================================================
--- portlogger.scm
+++ portlogger.scm
@@ -31,11 +31,12 @@
 (import (prefix sqlite3 sqlite3:))
 (import debugprint dbmod)
 ;; lsof -i
 
 (define (portlogger:open-db fname)
-  (let* ((avail    (tasks:wait-on-journal fname 5 remove: #t)) ;; wait up to about 10 seconds for the journal to go away
+  (let* (;; (avail    (tasks:wait-on-journal fname 5 remove: #t)) ;; wait up to about 10 seconds for the journal to go away
+         (avail #t)
 	 (exists   (file-exists? fname))
 	 (db       (if avail 
 		       (sqlite3:open-database fname)
 		       (begin
 			 (system (conc "rm -f " fname))

Index: rmtmod.scm
==================================================================
--- rmtmod.scm
+++ rmtmod.scm
@@ -87,16 +87,24 @@
   (let* ((runname    (car run-dat))
 	 (all-dat    (cdr run-dat))
 	 (tests-data (alist-ref "data" all-dat equal?))
 	 (run-meta   (alist-ref "meta" all-dat equal?))
 	 (run-id     (rmt:insert-run target runname run-meta)))
-    (for-each
-     (lambda (test-dat)
-       (let* ((test-id  (car test-dat))
+    (if (list? tests-data)
+      (begin
+        (debug:print 0 *default-log-port* "import-run: inserting " (length tests-data) " tests")
+      (for-each
+        (lambda (test-dat)
+          (let* ((test-id  (car test-dat))
 	      (test-rec (cdr test-dat)))
-	 (rmt:insert-test run-id test-rec)))
-     tests-data)))
+	  (rmt:insert-test run-id test-rec)))
+      tests-data)
+      )
+      (debug:print 0 *default-log-port* "import-run: run has no tests")
+    )
+  )
+)
 
 ;; insert run if not there, return id either way
 (define (rmt:insert-run target runname run-meta)
   ;; look for id, return if found
   (debug:print 0 *default-log-port* "Insert run: "target"/"runname)
@@ -107,13 +115,22 @@
 	(rmtmod:send-receive 'insert-run #f (list target runname run-meta))
 	(simple-run-id (car runs)))))
 
 (define (rmt:insert-test run-id test-rec)
   (let* ((testname  (alist-ref "testname" test-rec equal?))
-	 (item-path (alist-ref "item_path" test-rec equal?)))
-    (debug:print 0 *default-log-port* "   Insert test in run "run-id": "testname"/"item-path)
-    (rmtmod:send-receive 'insert-test run-id test-rec)))
+	 (item-path (alist-ref "item_path" test-rec equal?))
+         (test-id (rmt:get-test-id run-id testname item-path))
+         )
+        (if test-id
+          (debug:print 0 *default-log-port* "test "testname"/"item-path " already exists in run-id " run-id)
+          (begin
+            (debug:print 0 *default-log-port* "   Insert test in run "run-id": "testname"/"item-path)
+            (rmtmod:send-receive 'insert-test run-id test-rec)
+          )
+        )
+  )
+)
 
 ;;======================================================================
 ;;  T E S T S
 ;;======================================================================
 

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -2916,11 +2916,11 @@
 	      (fld (car  key))
 	      (val (configf:lookup test-conf "test_meta" fld)))
 	 ;; (debug:print 5 *default-log-port* "idx: " idx " fld: " fld " val: " val)
 	 (if (and val (not (equal? (vector-ref currrecord idx) val)))
 	     (begin
-	       (debug:print 0 *default-log-port* "Updating " test-name " " fld " to " val)
+	       (debug:print 2 *default-log-port* "Updating " test-name " " fld " to " val)
 	       (rmt:testmeta-update-field test-name fld val)))))
      '(("author" 2)("owner" 3)("description" 4)("reviewed" 5)("tags" 9)("jobgroup" 10)))))
 
 ;; find tests with matching tags, tagpatt is a string "tagpatt1,tagpatt2%, ..."
 ;;

Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -743,12 +743,10 @@
 ;; example of what it's looking for in the log file:
 ;;     SERVER STARTED: 10.38.175.67:50216 AT 1616502350.0 server-id: 4907e90fc55c7a09694e3f658c639cf4 
 ;;
 (define (tt:server-get-info logf)
   (let ((server-rx    (regexp "^SERVER STARTED: (\\S+):(\\d+) AT ([\\d\\.]+) server-id: (\\S+) pid: (\\d+) dbfname: (\\S+)")) ;; SERVER STARTED: host:port AT timesecs server id
-        (dbprep-rx    (regexp "^SERVER: dbprep"))
-        (dbprep-found 0)
 	(bad-dat      (list #f #f #f #f #f #f logf)))
      (let ((fdat     (handle-exceptions
 			 exn
 		       (begin
 			 ;; WARNING: this is potentially dangerous to blanket ignore the errors
@@ -758,13 +756,11 @@
        (if (null? fdat) ;; bad data, return bad-dat
 	   bad-dat
 	   (let loop ((inl  (car fdat))
 		      (tail (cdr fdat))
 		      (lnum 0))
-	     (let ((mlst (string-match server-rx inl))
-		   (dbprep (string-match dbprep-rx inl)))
-	       (if dbprep (set! dbprep-found 1))
+	     (let ((mlst (string-match server-rx inl)))
 	       (if (not mlst)
 		   (if (> lnum 500) ;; give up if more than 500 lines of server log read
 		       bad-dat
 		       (if (null? tail)
 			   bad-dat
@@ -905,11 +901,15 @@
       (if (< port 65535)
 	  (begin
 	    (portlogger:open-run-close portlogger:set-failed port)
 	    (thread-sleep! 0.25)
 	    (setup-listener-portlogger uconn))
-	  #f)
+          (begin
+            (assert #t "setup-listener-portlogger: could not get a port")
+	    #f
+          )
+      )
       (connect-listener uconn port))))
 
 (define (connect-listener uconn port)
   ;; (tcp-listener-socket LISTENER)(socket-name so)
   ;; sockaddr-address, sockaddr-port, sockaddr->string

Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -1638,11 +1638,11 @@
 		(if (and testexists
 			 cache-file
 			 (file-write-access? cache-path)
 			 allow-write-cache)
 		    (let ((tpath (conc cache-path "/.testconfig")))
-		      (debug:print-info 1 *default-log-port* "Caching testconfig for " test-name " in " tpath)
+		      (debug:print-info 2 *default-log-port* "Caching testconfig for " test-name " in " tpath)
                       (if (and tcfg (not (common:in-running-test?)))
                           (configf:write-alist tcfg tpath))))
 		tcfg))))))
   
 ;; sort tests by priority and waiton