@@ -8,19 +8,21 @@
 ;; test-records is a hash table testname:item_path => vector < testname testconfig waitons priority items-info ... >
 (define (runs:run-tests-queue-new run-id runname test-records keyvallst flags test-patts reglen)
     ;; At this point the list of parent tests is expanded 
     ;; NB// Should expand items here and then insert into the run queue.
   (debug:print 5 "test-records: " test-records ", keyvallst: " keyvallst " flags: " (hash-table->alist flags))
-  (let ((sorted-test-names (tests:sort-by-priority-and-waiton test-records))
-	(test-registry    (make-hash-table))
-	(registry-mutex   (make-mutex))
-	(num-retries        0)
-	(max-retries       (config-lookup *configdat* "setup" "maxretries"))
-	(max-concurrent-jobs     (let ((mcj (config-lookup *configdat* "setup"     "max_concurrent_jobs")))
-				    (if (and mcj (string->number mcj))
-					(string->number mcj)
-					1)))) ;; length of the register queue ahead
+  (let ((run-info              (cdb:remote-run db:get-run-info #f run-id))
+	(key-vals              (cdb:remote-run db:get-key-vals #f run-id))
+	(sorted-test-names     (tests:sort-by-priority-and-waiton test-records))
+	(test-registry         (make-hash-table))
+	(registry-mutex        (make-mutex))
+	(num-retries           0)
+	(max-retries           (config-lookup *configdat* "setup" "maxretries"))
+	(max-concurrent-jobs   (let ((mcj (config-lookup *configdat* "setup"     "max_concurrent_jobs")))
+				 (if (and mcj (string->number mcj))
+				     (string->number mcj)
+				     1)))) ;; length of the register queue ahead
     (set! max-retries (if (and max-retries (string->number max-retries))(string->number max-retries) 100))
     (if (not (null? sorted-test-names))
 	(let loop ((hed         (car sorted-test-names))
 		   (tal         (cdr sorted-test-names))
 		   (reg         '()) ;; registered, put these at the head of tal 
@@ -149,11 +151,11 @@
 		  (loop (car newtal)(cdr newtal) reg reruns))
 		 ((and have-resources
 		       (or (null? prereqs-not-met)
 			   (and (eq? testmode 'toplevel)
 				(null? non-completed))))
-		  (run:test run-id runname keyvallst test-record flags #f)
+		  (run:test run-id run-info key-vals runname keyvallst test-record flags #f)
 		  (hash-table-set! test-registry (runs:make-full-test-name test-name item-path) 'running)
 		  (runs:shrink-can-run-more-tests-count)  ;; DELAY TWEAKER (still needed?)
 		  ;; (thread-sleep! *global-delta*)
 		  (if (not (null? tal))
 		      (loop (runs:queue-next-hed tal reg reglen regfull)