Index: ulex/ulex.scm
==================================================================
--- ulex/ulex.scm
+++ ulex/ulex.scm
@@ -170,11 +170,11 @@
 ;; return #f if fail to find a port to allocate.
 ;;
 (define (start-server-find-port udata #!optional (port 4242)) 
   (handle-exceptions
       exn
-      (if (< port 65535)(connect-server-find-port udata (+ port 1)) #f)
+      (if (< port 65535)(start-server-find-port udata (+ port 1)) #f)
     (connect-server udata port)))
 
 (define (connect-server udata port)
   ;; (tcp-listener-socket LISTENER)(socket-name so)
   ;; sockaddr-address, sockaddr-port, sockaddr->string
@@ -255,15 +255,18 @@
 		 (udat-my-hostname udata) " "
 		 (udat-my-pid      udata) " "
 		 qrykey)
 		oup)
     (write-line data oup))) ;; we must send a second line - for the ack let it be the qrykey 
-  
+
+(define (add-to-work-queue udata . blah)
+  #f)
+
 ;; send back ack
 ;;
 (define (send-ack udata host-port qrykey #!optional (hostname #f)(pid #f))
-  (reply udata "ack" qrykey oup qrykey hostname pid)) ;; we must send a second line - for the ack let it be the qrykey 
+  (reply udata "ack" qrykey qrykey hostname pid)) ;; we must send a second line - for the ack let it be the qrykey 
   
 ;; 
 ;;
 (define (ulex-handler udata)
   (let* ((serv-listener (udat-serv-listener udata)))
@@ -282,12 +285,12 @@
 		(reply udata host:port "iamcaptain" qrykey (if (udat-my-cpkt-key udata)
 							       "yes"
 							       "no")))
 	       (else
 		(send-ack udata host:port qrykey hostname pid)
-		(add-to-work-queue (get-peer-dat udata host:port) handlerkey data)))
-	     (else (print "BAD DATA? handler=" handler " data=" data)))))
+		(add-to-work-queue udata (get-peer-dat udata host:port) handlerkey data)))
+	     (else (print "BAD DATA? handler=" handlerkey " data=" data)))))
 	(loop state)))))
 
 ;;======================================================================
 ;; connection setup and management functions
 ;;======================================================================