Index: ulex/ulex.scm
==================================================================
--- ulex/ulex.scm
+++ ulex/ulex.scm
@@ -310,11 +310,12 @@
   (if (start-server-find-port udata) ;; puts the server in udata
       (if (create-captain-pkt udata)
 	  (let* ((th (make-thread (lambda ()
 				    (ulex-handler udata)) "Captain handler")))
 	    (udat-handler-thread-set! udata th)
-	    (thread-start! th))
+	    (thread-start! th)
+	    udata)
 	  #f)
       #f))
 
 (define (get-peer-dat udata host-port #!optional (hostname #f)(pid #f))
   (let* ((pdat (or (hash-table-ref/default (udat-outgoing-conns udata) host-port #f)