Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -579,14 +579,16 @@
 	(let* ((db       #f)
 	       (runpatt  (args:get-arg "-list-runs"))
 	       (testpatt (if (args:get-arg "-testpatt") 
 			     (args:get-arg "-testpatt") 
 			     "%"))
-	       (runsdat  (cdb:remote-run db:get-runs #f runpatt #f #f '()))
+	       (keys     (cdb:remote-run db:get-keys #f))
+	       (runsdat  (cdb:remote-run db:get-runs-by-patt #f keys runpatt (or (args:get-arg "-target")
+										 (args:get-arg "-reqtarg")) #f #f))
+		;; (cdb:remote-run db:get-runs #f runpatt #f #f '()))
 	       (runs     (db:get-rows runsdat))
 	       (header   (db:get-header runsdat))
-	       (keys     (cdb:remote-run db:get-keys #f))
 	       (db-targets (args:get-arg "-list-db-targets"))
 	       (seen     (make-hash-table)))
 	  ;; Each run
 	  (for-each 
 	   (lambda (run)