Index: dbmod.scm
==================================================================
--- dbmod.scm
+++ dbmod.scm
@@ -680,11 +680,11 @@
 (define (db:get-toplevels-and-incompletes dbstruct run-id running-deadtime remotehoststart-deadtime)
   (let* ((toplevels   '())
 	 (oldlaunched '())
 	 (incompleted '()))
     (db:with-db 
-     dbstruct run-id #f
+     dbstruct run-id #t ;; not a write but problemtic
      (lambda (dbdat db)
        (let* ((stmth1 (db:get-cache-stmth
 		       dbdat db
 		       "SELECT id,rundir,uname,testname,item_path,event_time,run_duration FROM tests 
                            WHERE run_id=? AND (strftime('%s','now') - event_time) > (run_duration + ?)