@@ -44,10 +44,11 @@
 	   "CREATE TABLE IF NOT EXISTS runlocks (
               id         INTEGER PRIMARY KEY,
               test_id    INTEGER,
               run_lock   TEXT,
               CONSTRAINT runlock_constraint UNIQUE (run_lock));")))
+    (sqlite3:set-busy-handler! db handler)
     db))
 
 (define (lock-queue:set-state db test-id newstate)
   (sqlite3:execute db "UPDATE queue SET state=? WHERE test_id=?;"
 		   newstate