Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1384,13 +1384,13 @@
       (let ((host (vector-ref *runremote* 0))
 	    (port (vector-ref *runremote* 1)))
 	((rpc:procedure 'rdb:test-data-rollup host port) test-id status))
       (db:test-data-rollup db test-id status)))
 
-(define (rdb:test-get-paths-matching db keynames target)
+(define (rdb:test-get-paths-matching db keynames target fname)
    (if *runremote*
        (let ((host (vector-ref *runremote* 0))
 	     (port (vector-ref *runremote* 1)))
-	 ((rpc:procedure 'rdb:test-get-paths-matching host port) keynames target))
-       (db:test-get-paths-matching db keynames target)))
+	 ((rpc:procedure 'rdb:test-get-paths-matching host port) keynames target fname))
+       (db:test-get-paths-matching db keynames target fname)))
 
  

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -481,11 +481,11 @@
 	  (if (not (args:get-arg "-server"))
 	      (server:client-setup db))
 	  (let* ((itempatt (args:get-arg "-itempatt"))
 		 (keys     (rdb:get-keys db))
 		 (keynames (map key:get-fieldname keys))
-		 (paths    (rdb:test-get-paths-matching db keynames target)))
+		 (paths    (rdb:test-get-paths-matching db keynames target (args:get-arg "-test-path"))))
 	    (set! *didsomething* #t)
 	    (for-each (lambda (path)
 			(print path))
 		      paths)))
 	;; else do a general-run-call
@@ -492,11 +492,11 @@
 	(general-run-call 
 	 "-test-path"
 	 "Get paths to test"
 	 (lambda (db target runname keys keynames keyvallst)
 	   (let* ((itempatt (args:get-arg "-itempatt"))
-		  (paths    (rdb:test-get-paths-matching db keynames target)))
+		  (paths    (rdb:test-get-paths-matching db keynames target (args:get-arg "-test-path"))))
 	     (for-each (lambda (path)
 			 (print path))
 		       paths))))))
 
 ;;======================================================================