anchor.diff:  		 (etypecase socket
   		   (usocket:stream-server-usocket
   		    ;; a tcp socket to accept
  -		    (let ((conn (make-rpc-connection :conn
  -						     (usocket:socket-accept socket)
  -						     :time (get-universal-time))))
  -		      (push conn connections)))
  -;;		    (accept-rpc-connection server socket timeout))
  +		    (push (make-rpc-connection :conn
  +					       (usocket:socket-accept socket)
  +					       :time 
  +					       (get-universal-time))
  +			  connections))
   		   (usocket:datagram-usocket
   		    ;; a udp socket is ready to read from
   		    (handler-case (accept-udp-rpc-request server socket udp-buffer)
  
positive.code: 			;; listening on the port the previous UDP packet was sent to.
  			(log:debug "~A" e))))
  		   (usocket:stream-usocket 
  		    ;; a connection is ready to read
  		    (handler-case (process-rpc-connection server socket)
  		      (end-of-file ()
  			(log:debug "Connection closed by remote host")
  
negative.code: 	;; flush output
  	(force-output stream)))))
  
  ;; -------------------- udp rpc server -------------
  
  (defun process-udp-request (server msg input-stream)
  