Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -405,29 +405,38 @@
 	       (db-host   (assoc/default 'db-host   cmdinfo))
 	       (run-id    (assoc/default 'run-id    cmdinfo))
 	       (itemdat   (assoc/default 'itemdat   cmdinfo))
 	       (db        #f)
 	       (state     (args:get-arg ":state"))
-	       (status    (args:get-arg ":status")))
+	       (status    (args:get-arg ":status"))
+	       (target    (args:get-arg "-target"))
+	       (runname   (get-environment-variable "MT_RUNNAME")))
 	  (change-directory testpath)
+	  (if (not target)
+	      (begin
+		(debug:print 0 "ERROR: -target is required.")
+		(exit 1)))
 	  (if (not (setup-for-run))
 	      (begin
 		(debug:print 0 "Failed to setup, giving up on -test-paths, exiting")
 		(exit 1)))
 	  (set! db (open-db))    
 	  (let* ((itempatt (args:get-arg "-itempatt"))
-		 (paths    (db:test-get-paths-matching db keyvallst runname keys keynames target)))
+		 (keys     (db-get-keys db))
+		 (keynames (map key:get-fieldname keys))
+		 (paths    (db:test-get-paths-matching db runname keynames target)))
+	    (set! *didsomething* #t)
 	    (for-each (lambda (path)
 			(print path))
 		      paths)))
 	;; else do a general-run-call
 	(general-run-call 
 	 "-test-paths"
 	 "Get paths to tests"
 	 (lambda (db target runname keys keynames keyvallst)
 	   (let* ((itempatt (args:get-arg "-itempatt"))
-		  (paths    (db:test-get-paths-matching db keyvallst runname keys keynames target)))
+		  (paths    (db:test-get-paths-matching db runname keynames target)))
 	     (for-each (lambda (path)
 			 (print path))
 		       paths))))))
 
 ;;======================================================================