@@ -98,11 +98,23 @@
 				  ;; (debug:print-info 0 *default-log-port* "starting server for dbfname: "dbfname)
 				  (rmt:start-server ;; tt:server-process-run
 				   areapath
 				   testsuite ;; (dbfile:testsuite-name)
 				   mtexe
-				   run-id)))))
+				   run-id))))
+	 ;; current method does not take advantage of simply getting the list of
+	 ;; servers from no-sync db. srv-get-proc would be a first step but is not used yet
+	 (srv-get-proc (lambda ()
+			 (let* ((candidates (rmt:get-process-options "server" dbfname))
+				(ccount     (length candidates)))
+			   (case ccount
+			     ((0) #f) ;; need to call rmt:start-server
+			     ((1) (car candidates))
+			     (else
+			      (if (> (random 100) 50)
+				  (car candidates)
+				  (cadr candidates))))))))
     ;; here we look at ttdat, if dbfname is NOT main.db we check that a conn exists for it
     ;; and if there is no conn we first send a request to the main.db server to start a
     ;; server for the dbfname.
     #;(if (and (not is-main)(not conn)) ;; no existing connection to non-main server, call in a start up request
 	(begin