Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -630,11 +630,11 @@
 ;; find a port and start tcp-server. This only starts the tcp portion of
 ;; the server, look at (tt:start-server ...) above for the entry point
 ;; for the entire server system
 ;;
 (define (tt:start-tcp-server ttdat)
-  (setup-listener ttdat)
+  (setup-listener-portlogger ttdat)
   (let* ((socket   (tt-socket  ttdat))
 	 (handler  (tt-handler ttdat)))
     ((make-tcp-server socket handler)
      #f ;; yes, send error messages to std-err
      )))
@@ -664,11 +664,11 @@
 	exn
       (if (< port 65535)
 	  (begin
 	    (portlogger:open-run-close portlogger:set-failed port)
 	    (thread-sleep! 0.25)
-	    (setup-listener uconn (portlogger:open-run-close portlogger:find-port)))
+	    (setup-listener-portlogger uconn))
 	  #f)
       (connect-listener uconn port))))
 
 (define (connect-listener uconn port)
   ;; (tcp-listener-socket LISTENER)(socket-name so)