Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -753,25 +753,29 @@
       (if (not (file-exists? (conc areapath"/logs")))
 	      (create-directory (conc areapath"/logs") #t))
 	  (let* ((logfile   (conc areapath "/logs/server-"dbfname"-"(current-process-id)".log")) ;; -" curr-pid "-" target-host ".log"))
 		 (cmdln     (conc
 			     mtexe
+			     " -startdir "areapath
 			     " -server - ";; (or target-host "-")
-			     " -m testsuite:" testsuite
-			     ;; " -run-id " (or run-id "main") ;; NO, we do NOT want to have run id as part of this
-			     " -db "  dbfname ;; (dbmod:run-id->dbfname run-id)
+			     " -m testsuite:"testsuite
+			     " -db "dbfname ;; (dbmod:run-id->dbfname run-id)
 			     " " profile-mode
-			     ))) ;; (conc " >> " logfile " 2>&1 &")))))
+			     (conc " >> " logfile " 2>&1 &"))))
 	    ;; we want the remote server to start in *toppath* so push there
 	    ;; (push-directory areapath) ;; use cd in the command line instead
 	    (debug:print 0 *default-log-port* "INFO: Trying to start server in tcp mode (" cmdln ") at "(common:human-time)" for "areapath)
 	    ;; (debug:print 0 *default-log-port* "INFO: starting server at " (common:human-time))
-	    (setenv "NBFAKE_QUIET" "yes") ;; BUG: change to with-environment-variable ...
-	    (setenv "NBFAKE_LOG" logfile)
-	    (system (conc "cd "areapath" ; nbfake " cmdln))
-	    (unsetenv "NBFAKE_QUIET")
-	    (unsetenv "NBFAKE_LOG")
+
+	    (system cmdln)
+	    ;; ;; use below to go back to nbfake - nbfake does cause trouble ...
+	    ;; (setenv "NBFAKE_QUIET" "yes") ;; BUG: change to with-environment-variable ...
+	    ;; (setenv "NBFAKE_LOG" logfile)
+	    ;; (system (conc "cd "areapath" ; nbfake " cmdln))
+	    ;; (unsetenv "NBFAKE_QUIET")
+	    ;; (unsetenv "NBFAKE_LOG")
+	    
 	    ;;(pop-directory)
 	    )))))
 
 ;;======================================================================
 ;; tcp connection stuff