Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -98,11 +98,11 @@
   (let ((best-matches (filter (lambda (itemmap)
 				(tests:match (car itemmap) testname #f))
 			      itemmaps)))
     (if (null? best-matches)
 	#f
-	(car best-matches))))
+	(cdr (car best-matches)))))
 					     
 ;; given test-b that is waiting on test-a extend test-patt appropriately
 ;;
 ;;  genlib/testconfig               sim/testconfig
 ;;  genlib/sch                      sim/sch/cell1