anchor.diff:      (when (null (slot-value stream 'current-packet))
         (sys.int::process-wait "TCP read" (lambda ()
                                             (or (tcp-connection-rx-data connection)
  -                                              (not (eql (tcp-connection-state connection) :established)))))
  +                                              (not (member (tcp-connection-state connection)
  +                                                           '(:established :syn-received))))))
         (when (and (null (tcp-connection-rx-data connection))
  -		 (not (eql (tcp-connection-state connection) :established)))
  +		 (not (eql (tcp-connection-state connection) :established))
  +                 (not (eql (tcp-connection-state connection) :syn-received)))
   	(return-from sys.int::stream-read-byte nil))
         (setf (slot-value stream 'current-packet) (first (tcp-connection-rx-data connection))
   	    (tcp-connection-rx-data connection) (cdr (tcp-connection-rx-data connection))))
  
positive.code: 	     (detach-tcp-connection connection)
  	     (tcp4-send-packet connection 0 0 nil :ack-p nil :rst-p t)
  	     (format t "TCP: got ack ~S, wanted ~S. Flags ~B~%" ack (tcp-connection-s-next connection) flags))))
        (:established
         ;; Ignore out-of-order packets.
         (when (eql seq (tcp-connection-r-next connection))
  
negative.code:   (let ((connection (slot-value stream 'connection)))
      (refill-tcp-stream-buffer stream)
      (and (null (slot-value stream 'current-packet))
           (not (eql (tcp-connection-state connection) :established))
           (not (eql (tcp-connection-state connection) :syn-received)))))
  
  (defmethod sys.int::stream-listen ((stream tcp-stream))
    (refill-tcp-stream-buffer stream)
  