Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -996,11 +996,12 @@
 				     1))) ;; length of the register queue ahead
 	(reglen                (if (number? reglen-in) reglen-in 1))
 	(last-time-incomplete  (- (current-seconds) 900)) ;; force at least one clean up cycle
 	(last-time-some-running (current-seconds))
 	(tdbdat                (tasks:open-db)))
-
+    ;; BB: suspicion: sorted-tests violate dependency topology
+    (debug:print 0 "BB> sorted-test-names: "sorted-test-names)
     ;; Initialize the test-registery hash with tests that already have a record
     ;; convert state to symbol and use that as the hash value
     (for-each (lambda (trec)
 		(let ((id (db:test-get-id        trec))
 		      (tn (db:test-get-testname  trec))
@@ -1013,10 +1014,11 @@
 
     (let loop ((hed         (car sorted-test-names))
 	       (tal         (cdr sorted-test-names))
 	       (reg         '()) ;; registered, put these at the head of tal 
 	       (reruns      '()))
+
 
       (set! reruns '()) ;; force it to test impact!!
 
     (if (not (null? reruns))(debug:print-info 4 "reruns=" reruns))