@@ -944,16 +944,18 @@
 	   (tl         (launch:setup))
 	   (keys       (keys:config-get-fields *configdat*)))
       (case (rmt:transport-mode)
 	((http)(http-transport:launch))
 	((tcp)
-	 (debug:print 0 *default-log-port* "INFO: Running using tcp method.")
-	 (if dbfname
-	     (tt:start-server tl #f dbfname api:tcp-dispatch-request-make-handler keys)
-	     (begin
-	       (debug:print 0 *default-log-port* "ERROR: transport mode is tcp - -db is required.")
-	       (exit 1))))
+	 (let* ((timeout    (server:expiration-timeout)))
+	   (debug:print 0 *default-log-port* "INFO: Running using tcp method with server timeout of "timeout)
+	   (tt-server-timeout-param timeout)
+	   (if dbfname
+	       (tt:start-server tl #f dbfname api:tcp-dispatch-request-make-handler keys)
+	       (begin
+		 (debug:print 0 *default-log-port* "ERROR: transport mode is tcp - -db is required.")
+		 (exit 1)))))
 	(else (debug:print 0 *default-log-port* "ERROR: rmt:transport-mode value not recognised "(rmt:transport-mode))))
       (set! *didsomething* #t)))
 
 ;; The adjutant is a bit different, it does NOT run (launch:setup) as it is not necessarily tied to
 ;; a specific Megatest area. Detail are being hashed out and this may change.