@@ -935,17 +935,18 @@
 ;; Server? Start up here.
 ;;
 (if (args:get-arg "-server")
     (let* ((run-id     (args:get-arg "-run-id"))
 	   (dbfname    (args:get-arg "-db"))
-	   (tl         (launch:setup)))
+	   (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 run-id
-	     (tt:start-server tl run-id dbfname api:tcp-dispatch-request-make-handler)
+	     (tt:start-server tl run-id dbfname api:tcp-dispatch-request-make-handler keys)
 	     (begin
 	       (debug:print 0 *default-log-port* "ERROR: transport mode is tcp - -run-id is required.")
 	       (exit 1))))
 	(else (debug:print 0 *default-log-port* "ERROR: rmt:transport-mode value not recognised "(rmt:transport-mode))))
       (set! *didsomething* #t)))