anchor.diff:                 (push connection *tcp-connections*))
                (setf (gethash connection (tcp-listener-pending-connections listener))
                      connection)
  -             (tcp4-send-packet connection seq ack nil :ack-p t :syn-p t))))))
  +             (when (not *netmangler-force-local-retransmit*)
  +               (tcp4-send-packet connection seq ack nil :ack-p t :syn-p t)))))))
   
   (defun tcp4-accept-connection (connection &key element-type external-format)
     (cond ((or (not element-type)
  
positive.code:                 ;; Simultaneous open
                  (setf (tcp-connection-state connection) :syn-received
                        (tcp-connection-r-next connection) (logand (1+ seq) #xFFFFFFFF))
                  (tcp4-send-packet connection ack (tcp-connection-r-next connection) nil
                                    :ack-p t :syn-p t)
                  ;; Cancel retransmit
                  (disarm-retransmit-timer connection)
                  (disarm-timeout-timer connection))
  
negative.code:            (setf (gethash seq (tcp-connection-rx-data-unordered connection))
                   (list (list packet (+ start header-length) end))))))
    (when (<= seq (tcp-connection-r-next connection))
      ;; Don't check *netmangler-force-local-retransmit* here,
      ;; or no acks will ever get through.
      (tcp4-send-packet connection
                        (tcp-connection-s-next connection)
                        (tcp-connection-r-next connection)
  