@@ -55,10 +55,12 @@
 (declare (uses dbmod.import))
 (declare (uses portlogger))
 (declare (uses portlogger.import))
 (declare (uses tcp-transportmod))
 (declare (uses tcp-transportmod.import))
+(declare (uses apimod))
+(declare (uses apimod.import))
 (declare (uses rmtmod))
 (declare (uses rmtmod.import))
 
 ;; (declare (uses debugprint))
 ;; (declare (uses debugprint.import))
@@ -72,10 +74,11 @@
 	commonmod
 	dbfile
 	portlogger
 	tcp-transportmod
 	rmtmod
+	apimod
         )
 
 (define *db* #f) ;; this is only for the repl, do not use in general!!!!
 
 (include "common_records.scm")
@@ -974,10 +977,11 @@
       (case (rmt:transport-mode)
 	((tcp)
 	 (let* ((timeout    (server:expiration-timeout)))
 	   (debug:print 0 *default-log-port* "INFO: megatest -server starting on " (get-host-name) " for " dbfname " using tcp method with timeout of "timeout)
 	   (tt-server-timeout-param timeout)
+	   (api:queue-processor)
 	   (thread-start! (make-thread api:print-db-stats "print-db-stats"))
 	   (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.")