anchor.diff:        (ecase (tcp-connection-state connection)
           (:established
            (setf (tcp-connection-state connection) :fin-wait-1)
  -         (tcp4-send-packet connection
  -                           (tcp-connection-s-next connection)
  -                           (tcp-connection-r-next connection)
  -                           nil
  -                           :fin-p t))
  +         (when (not *netmangler-force-local-retransmit*)
  +           (tcp4-send-packet connection
  +                             (tcp-connection-s-next connection)
  +                             (tcp-connection-r-next connection)
  +                             nil
  +                             :fin-p t)))
           (:close-wait
            (setf (tcp-connection-state connection) :last-ack)
  -         (tcp4-send-packet connection
  -                           (tcp-connection-s-next connection)
  -                           (tcp-connection-r-next connection)
  -                           nil
  -                           :fin-p t))
  +         (when (not *netmangler-force-local-retransmit*)
  +           (tcp4-send-packet connection
  +                             (tcp-connection-s-next connection)
  +                             (tcp-connection-r-next connection)
  +                             nil
  +                             :fin-p t)))
           (:closed)))))
   
   (defmethod open-stream-p ((stream tcp-octet-stream))
  
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:                 ;; Remote has sent SYN+ACK and waiting for ACK
                  (setf (tcp-connection-state connection) :established
                        (tcp-connection-r-next connection) (logand (1+ seq) #xFFFFFFFF))
                  (when (not *netmangler-force-local-retransmit*)
                    (tcp4-send-packet connection ack (tcp-connection-r-next connection) nil))
                  ;; Cancel retransmit
                  (disarm-retransmit-timer connection)
                  (disarm-timeout-timer connection))
  