Index: ulex/tests/run.scm
==================================================================
--- ulex/tests/run.scm
+++ ulex/tests/run.scm
@@ -15,11 +15,11 @@
 (trace-call-sites #t)
 
 (import ulex) ;; (import (prefix ulex ulex:))
 
 (trace
- find-or-setup-captain
+ ;; find-or-setup-captain
  get-all-captain-pkts
  setup-as-captain
  get-winning-pkt
  ping
  remove-captain-pkt

Index: ulex/ulex.scm
==================================================================
--- ulex/ulex.scm
+++ ulex/ulex.scm
@@ -552,12 +552,12 @@
 	udata
 	(let ((res (connect-server udata port)))
 	  (or res
 	      (begin
 		;; (print "Could not connect to " port)
-		(if (and (< port 65535)
-			 (< tries 5000)) ;; make this number bigger when things are working
+		(if (and (< port  65535)
+			 (< tries 10000)) ;; make this number bigger when things are working
 		    (start-server-find-port udata (+ port 1)(+ tries 1))
 		    #f)))))))
 
 (define (connect-server udata port)
   ;; (tcp-listener-socket LISTENER)(socket-name so)