@@ -1850,39 +1850,37 @@
 	 ;;                     (db:test-get-run_duration testdat)))
 	 ;;                    600) 
 	 ;; (db:delay-if-busy dbdat)
 	 (sqlite3:for-each-row 
 	  (lambda (test-id run-dir uname testname item-path event-time run-duration)
-	    (if (not (db:adjust-run-duration dbstruct test-id run-dir event-time run-duration))
-		(if (and (equal? uname "n/a")
-			 (equal? item-path "")) ;; this is a toplevel test
-		    ;; what to do with toplevel? call rollup?
-		    (begin
-		      (set! toplevels   (cons (list test-id run-dir uname testname item-path run-id) toplevels))
-		      (debug:print-info 0 *default-log-port* "Found old toplevel test in RUNNING state, test-id=" test-id))
-		    (begin
-		      (set! incompleted (cons (list test-id run-dir uname testname item-path run-id) incompleted))
-		      (debug:print-info 0 *default-log-port* "Found old test in RUNNING state, test-id="
-					test-id" exceeded running-deadtime "running-deadtime" now="(current-seconds)
-					" event-time="event-time" run-duration="run-duration)))))
+	    (if (and (equal? uname "n/a")
+		     (equal? item-path "")) ;; this is a toplevel test
+		;; what to do with toplevel? call rollup?
+		(begin
+		  (set! toplevels   (cons (list test-id run-dir uname testname item-path run-id) toplevels))
+		  (debug:print-info 0 *default-log-port* "Found old toplevel test in RUNNING state, test-id=" test-id))
+		(begin
+		  (set! incompleted (cons (list test-id run-dir uname testname item-path run-id) incompleted))
+		  (debug:print-info 0 *default-log-port* "Found old test in RUNNING state, test-id="
+				    test-id" exceeded running-deadtime "running-deadtime" now="(current-seconds)
+				    " event-time="event-time" run-duration="run-duration))))
 	  stmth1
 	  run-id running-deadtime) ;; default time 720 seconds
 	    
 	 (sqlite3:for-each-row 
 	  (lambda (test-id run-dir uname testname item-path event-time run-duration)
-	    (if (not (db:adjust-run-duration dbstruct test-id run-dir event-time run-duration))
-		(if (and (equal? uname "n/a")
-			 (equal? item-path "")) ;; this is a toplevel test
-		    ;; what to do with toplevel? call rollup?
-		    (begin
-		      (set! toplevels   (cons (list test-id run-dir uname testname item-path run-id) toplevels))
-		      (debug:print-info 0 *default-log-port* "Found old toplevel test in RUNNING state, test-id=" test-id))
-		    (begin
-		      (debug:print-info 0 *default-log-port* "Found old test in REMOTEHOSTSTART state, test-id=" test-id
-					" exceeded running-deadtime "running-deadtime" now="(current-seconds)" event-time="event-time
-					" run-duration="run-duration)
-		      (set! incompleted (cons (list test-id run-dir uname testname item-path run-id) incompleted))))))
+	    (if (and (equal? uname "n/a")
+		     (equal? item-path "")) ;; this is a toplevel test
+		;; what to do with toplevel? call rollup?
+		(begin
+		  (set! toplevels   (cons (list test-id run-dir uname testname item-path run-id) toplevels))
+		  (debug:print-info 0 *default-log-port* "Found old toplevel test in RUNNING state, test-id=" test-id))
+		(begin
+		  (debug:print-info 0 *default-log-port* "Found old test in REMOTEHOSTSTART state, test-id=" test-id
+				    " exceeded running-deadtime "running-deadtime" now="(current-seconds)" event-time="event-time
+				    " run-duration="run-duration)
+		  (set! incompleted (cons (list test-id run-dir uname testname item-path run-id) incompleted)))))
 	  stmth2
 	  run-id remotehoststart-deadtime) ;; default time 230 seconds
 	 
 	 ;; in LAUNCHED for more than one day. Could be long due to job queues TODO/BUG: Need override for this in config
 	 ;;