anchor.diff:    (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) :established))
  +         (not (eql (tcp-connection-state connection) :syn-received)))))
   
   (defmethod sys.int::stream-listen ((stream tcp-stream))
     (refill-tcp-stream-buffer stream)
  
positive.code:     (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)))))
        (when (and (null (tcp-connection-rx-data connection))
  		 (not (eql (tcp-connection-state connection) :established)))
  	(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))))
  
negative.code:              (protocol (aref packet (+ 14 9))))
           (cond
             ((eql protocol +ip-protocol-tcp+)
              (%tcp4-receive packet (ub32ref/be packet (+ 14 12)) (+ 14 header-length) (+ 14 total-length)))
             (t (format t "Unknown IPv4 protocol ~S ~S.~%" protocol packet)))))
        (t (format t "Unknown ethertype ~S ~S.~%" ethertype packet)))))
  
  