Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -435,13 +435,13 @@
 					    (args:get-arg "-m") #f)
 		    ;; need to update the top test record if PASS or FAIL and this is a subtest
 		    ;; NO NEED TO CALL roll-up-pass-fail-counts HERE, THIS IS DONE IN roll-up-pass-fail-counts called by tests:test-set-status!
 		    ))
 	      ;; for automated creation of the rollup html file this is a good place...
-	      (if (and (not (equal? item-path ""))
-		       (< (random (rmt:get-count-tests-running-for-testname run-id test-name)) 5))
-		  (tests:summarize-items run-id test-id test-name #f))
+	      ;; (if (and (not (equal? item-path ""))
+	      ;;      (< (random (rmt:get-count-tests-running-for-testname run-id test-name)) 5))
+	      (tests:summarize-items run-id test-id test-name #f)
 	      (tests:summarize-test run-id test-id)) ;; don't force - just update if no
 	    (mutex-unlock! m)
 	    (debug:print 2 "Output from running " fullrunscript ", pid " (vector-ref exit-info 0) " in work area " 
 			 work-area ":\n====\n exit code " (vector-ref exit-info 2) "\n" "====\n")
 	    (if (not (vector-ref exit-info 1))

Index: lock-queue.scm
==================================================================
--- lock-queue.scm
+++ lock-queue.scm
@@ -119,18 +119,18 @@
 	 (mklckqry  (sqlite3:prepare db "INSERT INTO runlocks (test_id,run_lock) VALUES (?,'locked');")))
     (let ((result 
 	   (handle-exceptions
 	    exn
 	    (begin
-	      (debug:print 0 "WARNING: failed to get queue lock. Will try again in a few seconds")
+	      (debug:print 0 "WARNING: failed to get queue lock. Removing lock db and returning fail") ;; Will try again in a few seconds")
 	      (debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
 	      (thread-sleep! 10)
-	      (if (> count 0)
-		  (lock-queue:get-lock dbdat test-id count: (- count 1))
-		  (begin ;; never recovered, remote the lock file and return #f, no lock obtained
-		    (lock-queue:delete-lock-db dbdat)
-		    #f)))
+	      ;; (if (> count 0)	
+	      ;;  #f ;; (lock-queue:get-lock dbdat test-id count: (- count 1)) - give up on retries 
+	      ;; (begin ;; never recovered, remote the lock file and return #f, no lock obtained
+	      (lock-queue:delete-lock-db dbdat)
+	      #f)
 	    (sqlite3:with-transaction
 	     db
 	     (lambda ()
 	       (sqlite3:for-each-row (lambda (tid lockstate)
 				       (set! res (list tid lockstate)))