Index: rpc-transport.scm
==================================================================
--- rpc-transport.scm
+++ rpc-transport.scm
@@ -417,14 +417,17 @@
          (hostname        (if (string=? "-" hostn)
 			      (get-host-name) 
 			      hostn))
 	 (ipaddrstr       (if (string=? "-" hostn)
 			      (server:get-best-guess-address hostname) ;; (string-intersperse (map number->string (u8vector->list (hostname->ip hostname))) ".")
-			      #f))
+                              (string-intersperse 
+                               (map number->string
+                                    (u8vector->list
+                                      (hostname->ip hostn))) ".")
+                              ))
 	 (portnum         (let ((res (rpc:default-server-port)))  res))
 	 (host:port       (conc (if ipaddrstr ipaddrstr hostname) ":" portnum)))
-
 
     (tasks:server-set-interface-port (db:delay-if-busy (tasks:open-db)) server-id ipaddrstr portnum)
 
     ;;============================================================
     ;;  activate thread th1 to attach opened tcp port to rpc server
@@ -441,15 +444,12 @@
                      final-failure-returns-actual: #t
                      )
         (debug:print 0 *default-log-port* "INFO: rpc self test passed!")
         (begin
           (debug:print 0 *default-log-port* "Error: rpc listener did not pass self test.  Shutting down.  On: " host:port)
-          (BB> 1)
           (tasks:server-set-state! (db:delay-if-busy (tasks:open-db)) server-id "dead")
-          (BB> 2)
           (tcp-close rpc:listener) ;; gotta exit nicely and free up that tcp port
-          (BB> 3)
           (rpc-transport:server-shutdown server-id rpc:listener)
           (exit)))
     (mutex-lock! *heartbeat-mutex*)
     (set! *last-db-access* (current-seconds))
     (mutex-unlock! *heartbeat-mutex*)
@@ -602,11 +602,11 @@
          (login-res ((rpc:procedure 'server:login host port) *toppath*))
          (res (and login-res (equal? testing-res "Just testing"))))
     
     (if login-res
         (begin
-          (BB> "Self test PASS.  login-res="login-res" testing-res="testing-res" *toppath*="*toppath*)
+          ;;(BB> "Self test PASS.  login-res="login-res" testing-res="testing-res" *toppath*="*toppath*)
           #t)
         (begin
           (BB> "Self test fail.  login-res="login-res" testing-res="testing-res" *toppath*="*toppath*)
            
           #f))

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -116,13 +116,15 @@
 	 (homehost    (common:get-homehost)) ;; configf:lookup *configdat* "server" "homehost" ))
 	 (target-host (car homehost))
 	 (testsuite   (common:get-testsuite-name))
 	 (logfile     (conc *toppath* "/logs/server.log"))
 	 (cmdln (conc (common:get-megatest-exe)
-		      " -server " (or target-host "-") " -run-id " 0 (if (equal? (configf:lookup *configdat* "server" "daemonize") "yes")
-									      (conc " -daemonize -log " logfile)
-									      "")
+		      " -server " (or target-host "-") " -run-id " 0
+                      (if (equal? (configf:lookup *configdat* "server" "daemonize") "yes")
+                          (conc " -daemonize -log " logfile)
+                          "")
+                      " -transport " (server:get-transport)
 		      " -m testsuite:" testsuite)) ;; (conc " >> " logfile " 2>&1 &")))))
 	 (log-rotate  (make-thread common:rotate-logs  "server run, rotate logs thread")))
     ;; we want the remote server to start in *toppath* so push there
     (push-directory *toppath*)
     (debug:print 0 *default-log-port* "INFO: Trying to start server (" cmdln ") ...")