Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -349,41 +349,20 @@
     (if (not (null? test-names))
 	(let loop ((hed (car test-names))
 		   (tal (cdr test-names)))         ;; 'return-procs tells the config reader to prep running system but return a proc
 	  (change-directory *toppath*) ;; PLEASE OPTIMIZE ME!!! I think this should be a no-op but there are several places where change-directories could be happening.
 	  (setenv "MT_TEST_NAME" hed) ;; 
-	  (let* ((config  (tests:get-testconfig hed all-tests-registry 'return-procs))
-		 (waitons (let ((instr (if config 
-					   (config-lookup config "requirements" "waiton")
-					   (begin ;; No config means this is a non-existant test
-					     (debug:print 0 "ERROR: non-existent required test \"" hed "\"")
-					     (exit 1)))))
-			    (debug:print-info 8 "waitons string is " instr)
-			    (let ((newwaitons
-				   (string-split (cond
-						  ((procedure? instr)
-						   (let ((res (instr)))
-						     (debug:print-info 8 "waiton procedure results in string " res " for test " hed)
-						     res))
-						  ((string? instr)     instr)
-						  (else 
-						   ;; NOTE: This is actually the case of *no* waitons! ;; (debug:print 0 "ERROR: something went wrong in processing waitons for test " hed)
-						   "")))))
-			      (filter (lambda (x)
-					(if (hash-table-ref/default all-tests-registry x #f)
-					    #t
-					    (begin
-					      (debug:print 0 "ERROR: test " hed " has unrecognised waiton testname " x)
-					      #f)))
-				      newwaitons)))))
+	  (let*-values (((waitons waitors config)(tests:get-waitons hed all-tests-registry)))
 	    (debug:print-info 8 "waitons: " waitons)
 	    ;; check for hed in waitons => this would be circular, remove it and issue an
 	    ;; error
-	    (if (member hed waitons)
+	    (if (or (member hed waitons)
+		    (member hed waitors))
 		(begin
-		  (debug:print 0 "ERROR: test " hed " has listed itself as a waiton, please correct this!")
-		  (set! waitons (filter (lambda (x)(not (equal? x hed))) waitons))))
+		  (debug:print 0 "ERROR: test " hed " has listed itself as a waiton or waitor, please correct this!")
+		  (set! waitons (filter (lambda (x)(not (equal? x hed))) waitons))
+		  (set! waitors (filter (lambda (x)(not (equal? x hed))) waitors))))
 	    
 	    ;; (items   (items:get-items-from-config config)))
 	    (if (not (hash-table-ref/default test-records hed #f))
 		(hash-table-set! test-records
 				 hed (vector hed     ;; 0
@@ -414,10 +393,11 @@
 								   "    items: " items " itemstable: " itemstable)
 						 (items:get-items-from-config config))
 						(else #f)))                           ;; not iterated
 					     #f      ;; itemsdat 5
 					     #f      ;; spare - used for item-path
+					     waitors ;; 
 					     )))
 	    (for-each 
 	     (lambda (waiton)
 	       (if (and waiton (not (member waiton test-names)))
 		   (let* ((waiton-record   (hash-table-ref/default test-records waiton #f))
@@ -459,11 +439,11 @@
 		     ;;  - doesn't work
 		     ;; (set! test-patts (conc test-patts "," waiton "/"))
 		     
 		     ;; (set! test-names (cons waiton test-names))))) ;; was an append, now a cons
 		     )))
-	     waitons)
+	     (delete-duplicates (append waitons waitors)))
 	    (let ((remtests (delete-duplicates (append waitons tal))))
 	      (if (not (null? remtests))
 		  (begin
 		    ;; (debug:print-info 0 "Preprocessing continues for " (string-intersperse remtests ", "))
 		    (loop (car remtests)(cdr remtests))))))))

Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -106,10 +106,61 @@
 	   ((string? res) res) ;;; FIX THE ROOT CAUSE HERE ....
 	   ((null? res)   #f)
 	   ((string? (cdr res)) (cdr res))  ;; it is a pair
 	   ((string? (cadr res))(cadr res)) ;; it is a list
 	   (else cadr res))))))
+
+;; returns waitons waitors tconfigdat
+;;
+(define (tests:get-waitons test-name all-tests-registry)
+   (let* ((config  (tests:get-testconfig test-name all-tests-registry 'return-procs)))
+     (let ((instr (if config 
+		      (config-lookup config "requirements" "waiton")
+		      (begin ;; No config means this is a non-existant test
+			(debug:print 0 "ERROR: non-existent required test \"" test-name "\"")
+			(exit 1))))
+	   (instr2 (if config
+		       (config-lookup config "requirements" "waitor")
+		       "")))
+       (debug:print-info 8 "waitons string is " instr ", waitors string is " instr2)
+       (let ((newwaitons
+	      (string-split (cond
+			     ((procedure? instr)
+			      (let ((res (instr)))
+				(debug:print-info 8 "waiton procedure results in string " res " for test " test-name)
+				res))
+			     ((string? instr)     instr)
+			     (else 
+			      ;; NOTE: This is actually the case of *no* waitons! ;; (debug:print 0 "ERROR: something went wrong in processing waitons for test " test-name)
+			      ""))))
+	     (newwaitors
+	      (string-split (cond
+			     ((procedure? instr2)
+			      (let ((res (instr2)))
+				(debug:print-info 8 "waitor procedure results in string " res " for test " test-name)
+				res))
+			     ((string? instr2)     instr2)
+			     (else 
+			      ;; NOTE: This is actually the case of *no* waitons! ;; (debug:print 0 "ERROR: something went wrong in processing waitons for test " test-name)
+			      "")))))
+	 (values
+	  ;; the waitons
+	  (filter (lambda (x)
+		    (if (hash-table-ref/default all-tests-registry x #f)
+			#t
+			(begin
+			  (debug:print 0 "ERROR: test " test-name " has unrecognised waiton testname " x)
+			  #f)))
+		  newwaitons)
+	  (filter (lambda (x)
+		    (if (hash-table-ref/default all-tests-registry x #f)
+			#t
+			(begin
+			  (debug:print 0 "ERROR: test " test-name " has unrecognised waiton testname " x)
+			  #f)))
+		  newwaitors)
+	  config)))))
 					     
 ;; given waiting-test that is waiting on waiton-test extend test-patt appropriately
 ;;
 ;;  genlib/testconfig               sim/testconfig
 ;;  genlib/sch                      sim/sch/cell1