@@ -847,10 +847,11 @@
       (let* ((res (rmt:get-prereqs-not-met run-id waitons hed item-path mode: mode itemmaps: itemmaps)))
 	(runs:testdat-prereqs-not-met-set! testdat res)
 	(runs:testdat-last-update-set! testdat (current-seconds))
 	res)))
 
+	   
 ;;======================================================================
 ;; runs:expand-items is called by runs:run-tests-queue
 ;;======================================================================
 ;;
 ;; return value of runs:expand-items is passed back to runs-tests-queue and is fed to named loop with this signature:
@@ -874,14 +875,11 @@
           (filter (lambda (testname)
                     (let* ((test-rec (hash-table-ref test-records testname))
                            (items       (tests:testqueue-get-items  test-rec)))
                       ;;(BB> "HEY " testname "=>"items)
                       (or (procedure? items)(eq? items 'have-procedure))))
-                  waitons))
-
-
-         )
+                  waitons)))
     (debug:print-info 4 *default-log-port* "START OF INNER COND #2 "
 		      "\n can-run-more:    " can-run-more
 		      "\n testname:        " hed
 		      "\n prereqs-not-met: " (runs:pretty-string prereqs-not-met)
 		      "\n non-completed:   " (runs:pretty-string non-completed) 
@@ -1463,11 +1461,12 @@
 ;;======================================================================
 ;; runs:run-tests-queue is called by runs:run-tests
 ;;======================================================================
 ;;
 ;; test-records is a hash table testname:item_path => vector < testname testconfig waitons priority items-info ... >
-(define (runs:run-tests-queue run-id runname test-records keyvals flags test-patts required-tests reglen-in all-tests-registry)
+(define (runs:run-tests-queue run-id runname test-records keyvals flags
+			      test-patts required-tests reglen-in all-tests-registry)
   ;; 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 *default-log-port* "test-records: " test-records ", flags: " (hash-table->alist flags))
 
   ;; Do mark-and-find clean up of db before starting runing of quue
@@ -1679,16 +1678,16 @@
           (debug:print-info 4 *default-log-port* "cond branch - "  "rtq-2")
 	  (debug:print-info 4 *default-log-port* "OUTER COND: (not items)")
 	  (if (and (not (tests:match test-patts (tests:testqueue-get-testname test-record) item-path required: required-tests))
 		   (not (null? tal)))
 	      (loop (car tal)(cdr tal) reg reruns))
-
-	  ;; gonna try a strategy change here.
-	  ;;
-	  ;; check if can run more tests. if yes, continue, if no, rest until can run more
-	  ;; look at the test jobgroup and tot jobs running
-	  ;;
+      ;; side effect is to save the prereqs in the struct
+	  (runs:lazy-get-prereqs-not-met testdat run-id waitons hed item-path
+					 mode: testmode
+					 itemmaps: itemmaps)
+      ;; not sure why this used to be here
+      ;; (runs:dat-can-run-more-tests-set! runsdat (runs:can-run-more-tests runsdat run-id jobgroup max-concurrent-jobs)) ;; look at the test jobgroup and tot jobs running
 	  ;; NOTE: This does NOT actually gate here, only captures the proc to be called later
 	  ;; 
 	  (if (not (runs:dat-wait-for-jobs-function runsdat))
 	      (runs:dat-wait-for-jobs-function-set!
 	       runsdat 
@@ -1800,11 +1799,12 @@
 	 ;;    - but only do that if resources exist to kick off the job
 	 ;; EXPAND ITEMS
 	 ((or (procedure? items)(eq? items 'have-procedure))
           (debug:print-info 4 *default-log-port* "cond branch - "  "rtq-4")
 	  (let ((can-run-more    #f)) ;; (runs:can-run-more-tests runsdat run-id jobgroup max-concurrent-jobs)))
-	    (if (not can-run-more) #;(and (list? can-run-more) ;; IDEA, this mechanism may have had some value, make it configurable to test pros/cons TODO
+	    (if (not can-run-more) #;(and (list? can-run-more) ;; IDEA, this mechanism may have had some value,
+		                                               ;;; make it configurable to test pros/cons TODO
 		(car can-run-more))
 		(let ((loop-list (runs:expand-items hed tal reg reruns regfull newtal jobgroup max-concurrent-jobs
 						    run-id waitons item-path testmode test-record
 						    can-run-more items runname tconfig reglen test-registry
 						    test-records itemmaps testdat)))