@@ -354,11 +354,12 @@
     (if (null? (lset-intersection 
 		     equal?
 		     (hash-table-keys args:arg-hash)
 		     '("-list-servers"
 		       "-stop-server"
-		       "-show-cmdinfo")))
+		       "-show-cmdinfo"
+		       "-list-runs")))
 	(if (setup-for-run)
 	    (begin
 
 	      ;; if not list or kill then start a client (if appropriate)
 	      (if (or (args-defined? "-h" "-version" "-gen-megatest-area" "-gen-megatest-test")
@@ -566,14 +567,17 @@
 	(let* ((dbstruct (make-dbr:dbstruct path: *toppath* local: #t))
 	       (runpatt  (args:get-arg "-list-runs"))
 	       (testpatt (if (args:get-arg "-testpatt") 
 			     (args:get-arg "-testpatt") 
 			     "%"))
-	       (runsdat  (db:get-runs dbstruct runpatt #f #f '()))
+	       (keys     (db:get-keys dbstruct))
+	       ;; (runsdat  (db:get-runs dbstruct runpatt #f #f '()))
+	       (runsdat  (db:get-runs-by-patt dbstruct 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     (db:get-keys dbstruct))
 	       (db-targets (args:get-arg "-list-db-targets"))
 	       (seen     (make-hash-table)))
 	  ;; Each run
 	  (for-each 
 	   (lambda (run)