@@ -139,11 +139,12 @@
 	 (server-start-proc (lambda ()
 			      (tt:server-process-run
 			       (tt-areapath ttdat)
 			       testsuite ;; (dbfile:testsuite-name)
 			       (common:find-local-megatest)
-			       run-id))))
+			       dbfname ;; run-id
+			       ))))
     (if conn
 	(begin 
           (debug:print-info 2 *default-log-port* "already connected to a server")
            conn) ;; we are already connected to the server
 	(let* ((sdat (tt:get-current-server-info ttdat dbfname)))
@@ -785,16 +786,18 @@
 ;; Given an area path,  start a server process    ### NOTE ### > file 2>&1 
 ;; if the target-host is set 
 ;; try running on that host
 ;;   incidental: rotate logs in logs/ dir.
 ;;
-(define  (tt:server-process-run areapath testsuite mtexe run-id #!key (profile-mode "")) ;; areapath is *toppath* for a given testsuite area
+(define  (tt:server-process-run areapath testsuite mtexe
+				dbfname ;; run-id
+				#!key (profile-mode "")) ;; areapath is *toppath* for a given testsuite area
   (assert areapath  "FATAL: tt:server-process-run called without areapath defined.")
   (assert testsuite "FATAL: tt:server-process-run called without testsuite defined.")
   (assert mtexe     "FATAL: tt:server-process-run called without mtexe defined.")
   ;; mtest -server - -m testsuite:ext-tests -db 6.db
-  (let* ((dbfname  (dbmod:run-id->dbfname run-id))
+  (let* (;; (dbfname  (dbmod:run-id->dbfname run-id))
 	 (load     (get-normalized-cpu-load))
 	 (trying   (length (tt:find-server areapath dbfname)))
 	 (nrun     (number-of-processes-running (conc "mtest.*server.*"testsuite".*"dbfname))))
     (cond
      ((> load 2.0)