Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -671,12 +671,12 @@
 	       (runpatt  (args:get-arg "-list-runs"))
 	       (testpatt (if (args:get-arg "-testpatt") 
 			     (args:get-arg "-testpatt") 
 			     "%"))
 	       (keys     (cdb:remote-run db:get-keys #f))
-	       (runsdat  (cdb:remote-run db:get-runs-by-patt #f keys runpatt
-					 (common:args-get-target)
+	       (runsdat  (cdb:remote-run db:get-runs-by-patt #f keys (if runpatt runpatt "%")
+					 (if (args:get-arg "-list-runs")(common:args-get-target) #f)
 					 #f #f))
 		;; (cdb:remote-run db:get-runs #f runpatt #f #f '()))
 	       (runs     (db:get-rows runsdat))
 	       (header   (db:get-header runsdat))
 	       (db-targets (args:get-arg "-list-db-targets"))