Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1153,11 +1153,11 @@
 	(sqlite3:for-each-row
 	 (lambda (count)
 	   (set! res count))
 	 db
 	 "SELECT count(id) FROM tests WHERE state = 'RUNNING' OR state = 'LAUNCHED' OR state = 'REMOTEHOSTSTART'
-             AND testname in (SELECT testname FROM test_meta WHERE jobgroup=?;"
+             AND testname in (SELECT testname FROM test_meta WHERE jobgroup=?);"
 	 jobgroup)
 	res)))
 
 ;; done with run when:
 ;;   0 tests in LAUNCHED, NOT_STARTED, REMOTEHOSTSTART, RUNNING

Index: lock-queue.scm
==================================================================
--- lock-queue.scm
+++ lock-queue.scm
@@ -25,11 +25,11 @@
 
 (define (lock-queue:open-db fname)
   (let* ((actualfname (conc fname ".lockdb"))
 	 (dbexists (file-exists? actualfname))
 	 (db       (sqlite3:open-database actualfname))
-	 (handler  (make-busy-timeout 3600)))
+	 (handler  (make-busy-timeout 136000)))
     (if dbexists
 	db
 	(begin
 	  (sqlite3:execute 
 	   db