@@ -44,11 +44,11 @@
 				cinfo
 				(let loop ((numtries 100))
 				  (thread-sleep! 1)
 				  (let ((res (client:setup run-id)))
 				    (if res 
-					res
+					(hash-table-ref/default *runremote* run-id #f) ;; client:setup filled this in (hopefully)
 					(if (> numtries 0)
 					    (loop (- numtries 1))
 					    (begin
 					      (debug:print 0 "ERROR: 100 tries and no server, giving up")
 					      (exit 1)))))))))
@@ -200,16 +200,21 @@
   (rmt:send-receive 'get-testinfo-state-status run-id (list run-id test-id)))
 
 (define (rmt:test-set-log! run-id test-id logf)
   (if (string? logf)(rmt:general-call 'test-set-log run-id logf test-id)))
 
+;; NOTE: This will open and access ALL run databases. 
+;;
 (define (rmt:test-get-paths-matching-keynames-target-new keynames target res testpatt statepatt statuspatt runname)
-  (let ((run-ids (rmt:get-run-ids-matching keynames target res)))
+  (let ((run-ids (rmt:get-all-run-ids))) ;; (rmt:get-run-ids-matching keynames target res)))
     (apply append (lambda (run-id)
 		    (rmt:send-receive 'test-get-paths-matching-keynames-target-new (list keynames target res testpatt statepatt statuspatt runname)))
 	   run-ids)))
 
+(define (rmt:get-run-ids-matching keynames target res)
+  (rmt:send-receive #f 'get-run-ids-matching (list keynames target res)))
+
 (define (rmt:get-prereqs-not-met run-id waitons ref-item-path #!key (mode 'normal))
   (rmt:send-receive 'get-prereqs-not-met run-id (list run-id waitons ref-item-path mode)))
 
 (define (rmt:get-count-tests-running-for-run-id run-id)
   (rmt:send-receive 'get-count-tests-running-for-run-id run-id (list run-id)))