Megatest

	 (reg                    (runs:testdat-reg testdat))
	 (reruns                 (runs:testdat-reruns testdat))
	 (test-name              (runs:testdat-test-name testdat))
	 (item-path              (runs:testdat-item-path testdat))
	 (jobgroup               (runs:testdat-jobgroup testdat))
	 (waitons                (runs:testdat-waitons testdat))
	 (item-path              (runs:testdat-item-path testdat))
	 (tfullname              (db:test-make-full-name test-name item-path))
	 (testmode               (runs:testdat-testmode testdat))
	 (newtal                 (runs:testdat-newtal testdat))
	 (itemmaps               (runs:testdat-itemmaps testdat))
	 (test-record            (runs:testdat-test-record testdat))
	 (prereqs-not-met        (runs:testdat-prereqs-not-met testdat))

	 (reglen                 (runs:dat-reglen runsdat))

		      (string-intersperse 
		       (map (lambda (t)
			      (if (vector? t)
				  (conc (db:test-get-state t) "/" (db:test-get-status t))
				  (conc " WARNING: t is not a vector=" t )))
			    prereqs-not-met)
		       ", ") ") fails: " fails
		       "\nregistered? " (hash-table-ref/default test-registry (db:test-make-full-name test-name item-path) #f))
		       "\nregistered? " (hash-table-ref/default test-registry tfullname #f))
			    

    (if (not (hash-table-ref/default test-registry tfullname #f))(hash-table-set! test-registry tfullname #f))
    
    (if (and (not (null? prereqs-not-met))
	     (runs:lownoise (conc "waiting on tests " prereqs-not-met hed) 60))
	(debug:print-info 2 *default-log-port* "waiting on tests; " (string-intersperse (runs:mixed-list-testname-and-testrec->list-of-strings prereqs-not-met) ", ")))

    ;; Don't know at this time if the test have been launched at some time in the past
    ;; i.e. is this a re-launch?

	  (list (runs:queue-next-hed tal reg reglen regfull)
		(runs:queue-next-tal tal reg reglen regfull)
		(runs:queue-next-reg tal reg reglen regfull)
		reruns)
	  #f))

     ;; this might speed things up!?
     ((and (eq? 0 num-running)
     ;; ((null? (filter (lambda (x)
     ;; 		       (not (member (hash-table-ref/default test-registry x)
     ;; 				    '(done removed))))
     ;; 		     (hash-table-keys test-registry)))
     ;;  (debug:print 0 *default-log-port* "NOTHING LEFT TO RUN!")
     ;;  #f)
	   (null? (filter (lambda (x)
			    (not (member (hash-table-ref/default test-registry (db:test-make-full-name test-name item-path) 'x)
					 '(done removed))))
			  (hash-table-keys test-registry))))
      (debug:print 0 *default-log-port* "NOTHING LEFT TO RUN!")
      #f)
     
     ;; must be we have unmet prerequisites
     ;;
     (else
      (debug:print 4 *default-log-port* "FAILS: " fails)
      ;; If one or more of the prereqs-not-met are FAIL then we can issue
      ;; a message and drop hed from the items to be processed.