@@ -201,16 +201,16 @@
 	     (lock-queue:wait-turn fname test-id count: (- count 1)))
 	   (begin
 	     (debug:print 0 "Giving up calls to lock-queue:wait-turn for test-id " test-id " at path " fname ", printing call chain")
 	     (print-call-chain (current-error-port))
 	     #f)))
-     (tasks:wait-on-journal (lock-queue:db-dat-get-path dbdat) 1200 waiting-msg: "lock-queue:wait-turn; waiting on journal file")
+     ;; (tasks:wait-on-journal (lock-queue:db-dat-get-path dbdat) 1200 waiting-msg: "lock-queue:wait-turn; waiting on journal file")
      (sqlite3:execute
       db
       "INSERT OR REPLACE INTO queue (test_id,start_time,state) VALUES (?,?,'waiting');"
       test-id mystart)
-     (thread-sleep! 1) ;; give other tests a chance to register
+     ;; (thread-sleep! 1) ;; give other tests a chance to register
      (let ((result 
 	    (let loop ((younger-waiting (lock-queue:any-younger? dbdat mystart test-id)))
 	      (if younger-waiting
 		  (begin
 		    ;; no need for us to wait. mark in the lock queue db as skipping