Index: dbfile.scm
==================================================================
--- dbfile.scm
+++ dbfile.scm
@@ -55,10 +55,12 @@
 (define num-run-dbs           (make-parameter 10))      ;; number of db's in .mtdb
 (define dbfile:sync-method    (make-parameter 'attach)) ;; 'attach or 'original
 (define dbfile:cache-method   (make-parameter 'cachedb))  ;; 'direct
 (define dbcache-mode (make-parameter 'tmp)) ;; 'cachedb, 'tmp (changes what open cachedb routine does)
 
+;; moved from tcp-transportmod so that it can be used in launch.scm
+(define tt-server-profile-string (make-parameter ""))
 
 ;; 'original     - use old condition code
 ;; 'suicide-mode - create mtrah/stop-the-train with info on what went wrong
 ;; else use no condition code (should be production mode)
 ;;

Index: dbmod.scm
==================================================================
--- dbmod.scm
+++ dbmod.scm
@@ -280,11 +280,11 @@
     ((none) #f)
     ((attach)
      (dbmod:attach-sync tables cachedb dbfname direction))
     ((newsync)
      (dbmod:new-sync tables cachedb dbh dbfname direction))
-    (else
+    (else ;; original
      (case direction
        ((todisk) ;; i.e. from the cache db to the mtrah db
 	(dbmod:sync-tables tables last-update keys cachedb dbh))
        (else
 	(dbmod:sync-tables tables last-update keys dbh cachedb))))))

Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -108,11 +108,10 @@
   )
 
 ;; parameters
 ;;
 (define tt-server-timeout-param (make-parameter 600))
-(define tt-server-profile-string (make-parameter ""))
 
 ;; make ttdat visible
 (define *server-info* #f)
 
 (define (tt:make-remote areapath)