@@ -599,11 +599,11 @@
 									(dirb (db:test-get-rundir b)))
 								    (if (and (string? dira)(string? dirb))
 									(> (string-length dira)(string-length dirb))
 									#f)))))
 		       (test-retry-time  (make-hash-table))
-		       (allow-run-time   25)) ;; seconds to allow for killing tests before just brutally killing 'em
+		       (allow-run-time   10)) ;; seconds to allow for killing tests before just brutally killing 'em
 		   (let loop ((test (car sorted-tests))
 			      (tal  (cdr sorted-tests)))
 		     (let* ((test-id       (db:test-get-id test))
 			    (new-test-dat  (cdb:remote-run db:get-test-info-by-id #f test-id))
 			    (item-path     (db:test-get-item-path new-test-dat))
@@ -614,11 +614,11 @@
 					       #f))
 			    (test-state    (db:test-get-state new-test-dat))
 			    (test-fulln    (db:test-get-fullname new-test-dat)))
 			   (case action
 			     ((remove-runs)
-			      (debug:print-info 0 "test-state: " test-state)
+			      (debug:print-info 0 "test: " test-name " item path: " item-path " test-state: " test-state)
 			      (if (member test-state (list "RUNNING" "LAUNCHED" "REMOTEHOSTSTART" "KILLREQ"))
 				  (begin
 				    (if (not (hash-table-ref/default test-retry-time test-fulln #f))
 					(hash-table-set! test-retry-time test-fulln (current-seconds)))
 				    (if (> (- (current-seconds)(hash-table-ref test-retry-time test-fulln)) allow-run-time)