@@ -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)))))) ;;======================================================================