Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -1152,11 +1152,11 @@
 	 (have-resources         (and (if *journal-stats*
 					  (let* ((dbfname (conc
 							   (dbfile:run-id->dbnum run-id)
 							   ".db"))
 						 (load (tt:get-journal-stats dbfname)))
-					    (if (> load 0.1) ;; dbs too busy to start more tests
+					    (if (> load 0.05) ;; dbs too busy to start more tests
 						(begin
 						  (debug:print-info 0 *default-log-port* "Gating launch due to db load "load" based on journal file observations for "dbfname)
 						 #f)
 						#t))
 					  (begin

Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -640,21 +640,24 @@
 				     (keep-srv  (and good-ping same-host)))
 				(if keep-srv	
 				    (loop (cdr servrs)
 					  host
 					  (cons servdat result))
-				    (let* ((modtime (file-modification-time servinfofile)))
+				    (let* ((modtime (handle-exceptions
+						     exn
+						     9999 ;; file probably disappeared
+						     (file-modification-time servinfofile))))
 				      ;; if the .servinfo hasn't been touched in five min
 				      ;; we can be pretty sure the server is truly dead
 				      (if (> (- (current-seconds) modtime) 360)
 					  (handle-exceptions
 					   exn
 					   (debug:print-info 0 *default-log-port*
 							     "Error removing server info file: "servinfofile", "
 							     (condition->list exn))
-					   (delete-file* servinfofile))
-					  (loop (cdr servrs) prime-host result))))))
+					   (delete-file* servinfofile)))
+				      (loop (cdr servrs) prime-host result)))))
 			     (else
 			      ;; can't delete it as we don't have a filename. NOTE: Should never get here.
 			      (debug:print-info 0 *default-log-port* "ERROR: bad servinfo record \""servdat"\"")
 			      (loop (cdr servrs) prime-host result)) ;; drop 
 			     )))))