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:              (protocol (aref packet (+ 14 9))))
           (cond
             ((eql protocol +ip-protocol-tcp+)
              (let ((remote-port (ub16ref/be packet (+ 14 header-length)))
                    (local-port (ub16ref/be packet (+ 14 header-length 2))))
                (dolist (connection *tcp-connections*
                         (format t "No connection for TCP ~S ~S.~%" remote-port local-port))
                  (when (and (eql (tcp-connection-remote-port connection) remote-port)
                             (eql (tcp-connection-local-port connection) local-port))
                    (tcp4-receive connection packet (+ 14 header-length) (+ 14 total-length))
                    (return)))))
             (t (format t "Unknown IPv4 protocol ~S ~S.~%" protocol packet)))))
        (t (format t "Unknown ethertype ~S ~S.~%" ethertype packet)))))
  
  
negative.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))))
        (:syn-received
         (cond ((and (eql flags +tcp4-flag-ack+)
                     (eql seq (tcp-connection-r-next connection))
                     (eql ack (tcp-connection-s-next connection)))
                (setf (tcp-connection-state connection) :established))
               (t (setf (tcp-connection-state connection) :closed)
                  (detach-tcp-connection connection)
                  (tcp4-send-packet connection 0 0 nil :ack-p nil :rst-p t)
                  (format t "TCP: Aborting connect. Got ack ~S, wanted ~S. Got seq ~S, wanted ~S. Flags ~B~%"
                          ack (tcp-connection-s-next connection)
                          seq (tcp-connection-r-next connection)
                          flags))))
        (:established
         ;; Ignore out-of-order packets.
         (when (eql seq (tcp-connection-r-next connection))
  