Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -308,17 +308,11 @@
 	      (system (conc run-post-hook " >> " actual-logf " 2>&1"))
 	      (debug:print-info 0 *default-log-port* "post-hook \"" run-post-hook "\" took " (- (current-seconds) start-time) " seconds to run."))))))
 
 ;; return #t when all items in waitors-upon list are represented in test-patt, #f otherwise.
 (define (runs:testpatts-mention-waitors-upon? test-patt waitors-upon)
-  (let* ((tests-in-testpatt
-          (map
-           (lambda (test-patt-item)
-             (car (string-split test-patt-item "/")))
-           (string-split test-patt ",")))
-         (waitors-upon-not-mentioned (lset-difference equal? waitors-upon tests-in-testpatt)))
-    (null? waitors-upon-not-mentioned)))
+  (null? (tests:filter-test-names-not-matched waitors-upon test-patt)))
 
 ;;  test-names: Comma separated patterns same as test-patts but used in selection 
 ;;              of tests to run. The item portions are not respected.
 ;;              FIXME: error out if /patt specified
 ;;            
@@ -424,12 +418,13 @@
     ;; 1. fill required tests with test-patts
     ;; 2. scan testconfigs and if waitons, itemwait, itempatt calc prior test test-patt
     ;; 3. repeat until all deps propagated
     
     ;; any tests with direct mention in test-patts can be added to required
+    ;;(set! required-tests     (lset-intersection equal? (string-split test-patts ",") all-test-names))
+    (set! required-tests     (tests:filter-test-names all-test-names test-patts))
     ;;
-    (set! required-tests     (lset-intersection equal? (string-split test-patts ",") all-test-names))
     ;; (set! required-tests     (lset-intersection equal? test-names all-test-names))
     
     ;; look up all tests matching the comma separated list of globs in
     ;; test-patts (using % as wildcard)
 

Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -72,10 +72,17 @@
 			      (hash-table-set! test-registry tname test-path))))
 		      (glob (conc hed "/*"))))
 	(if (null? tal)
 	    test-registry
 	    (loop (car tal)(cdr tal))))))
+
+(define (tests:filter-test-names-not-matched test-names test-patts)
+  (delete-duplicates
+   (filter (lambda (testname)
+	     (not (tests:match test-patts testname #f)))
+	   test-names)))
+
 
 (define (tests:filter-test-names test-names test-patts)
   (delete-duplicates
    (filter (lambda (testname)
 	     (tests:match test-patts testname #f))