Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1314,5 +1314,14 @@
     (if *runremote*
       (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)
+   (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)))
+
+ 

Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -1,7 +1,7 @@
 ;; Always use two digit decimal
 ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00..
 
 (declare (unit megatest-version))
 
-(define megatest-version 1.38)
+(define megatest-version 1.39)
 

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -243,10 +243,16 @@
      'rtests:test-set-toplog!
      (lambda (run-id test-name logf)
         (set! *last-db-access* (current-seconds))
         (test-set-toplog! db run-id test-name logf)))
 
+    (rpc:publish-procedure!
+     'db:test-get-paths-matching 
+      (lambda (keynames target)
+        (set! *last-db-access* (current-seconds))
+        (db:test-get-paths-matching db keynames target)))
+
     ;;======================================================================
     ;; end of publish-procedure section
     ;;======================================================================
 
     (set! *rpc:listener* rpc:listener)