Index: rpc-transport.scm
==================================================================
--- rpc-transport.scm
+++ rpc-transport.scm
@@ -60,14 +60,16 @@
               (begin
                 ;; since we didn't get the server lock we are going to clean up and bail out
                 (debug:print-info 2 *default-log-port* "INFO: server pid=" (current-process-id) ", hostname=" (get-host-name) " not starting due to other candidates ahead in start queue")
                 (tasks:server-delete-records-for-this-pid (db:delay-if-busy tdbdat) " rpc-transport:launch")))
           (begin
+
             (rpc-transport:run (if (args:get-arg "-server")(args:get-arg "-server") "-") run-id server-id)
             (exit))))))
 
 (define (rpc-transport:run hostn run-id server-id)
+  (BB> "rpc-trainsport:run fired for hostn="hostn" run-id="run-id" server-id="server-id)
   (debug:print 2 *default-log-port* "Attempting to start the rpc server ...")
    ;; (trace rpc:publish-procedure!)
 
   (rpc:publish-procedure! 'server:login server:login)
   (rpc:publish-procedure! 'testing (lambda () "Just testing"))