anchor.diff:                           (jdi:jcoerce sock-addr
                                         "java.net.SocketAddress")
                            (jdi:jcoerce backlog :int))
  -    (make-stream-server-socket sock :element-type element-type)))
  +    (make-stream-server-socket chan :element-type element-type)))
   
   (defmethod socket-accept ((socket stream-server-usocket) &key element-type)
     (let* ((jsock (socket socket))
  -         (jacc-sock (jdi:do-jmethod-call jsock "accept"))
  +         (jacc-chan (jdi:do-jmethod-call jsock "accept"))
            (jacc-stream
  -          (ext:get-socket-stream (jdi:jop-deref jacc-sock)
  +          (ext:get-socket-stream (jdi:jop-deref
  +                                  (jdi:do-jmethod-call jacc-chan "socket"))
                                    :element-type (or element-type
                                                      (element-type socket)))))
  -    (make-stream-socket :socket jacc-sock
  +    (make-stream-socket :socket jacc-chan
                           :stream jacc-stream)))
   
   ;;(defun print-java-exception (e)
  
positive.code:         (describe sock)
           (setf usock
                 (make-stream-socket
                  :socket sock
                  :stream (ext:get-socket-stream (jdi:jop-deref sock)
                                                 :element-type element-type)))))))
  
  
negative.code: 
  (defmethod socket-close ((usocket usocket))
    (with-mapped-conditions (usocket)
      (jdi:do-method (socket usocket) "close")))
  
  ;; Socket streams are different objects than
  ;; socket streams. Closing the stream flushes
  