@@ -37,17 +37,17 @@
 
 ;; all routes though here end in exit ...
 ;;
 ;; start_server? 
 ;;
-(define (rpc-transport:launch run-id)
+(define (rpc-transport:launch area-dat run-id)
   (let* ((tdbdat (tasks:open-db)))
     (BB> "rpc-transport:launch fired for run-id="run-id)
     (set! *run-id*   run-id)
     (if (args:get-arg "-daemonize")
         (daemon:ize))
-    (if (server:check-if-running run-id)
+    (if (server:check-if-running area-dat run-id)
         (begin
           (debug:print 0 *default-log-port* "INFO: Server for run-id " run-id " already running")
           (exit 0)))
     (let loop ((server-id (tasks:server-lock-slot (db:delay-if-busy tdbdat) run-id))
                (remtries  4))