anchor.diff:       LastStatReport       :: {RcvCnt::non_neg_integer(), RcvBytes::non_neg_integer(),
                                 SendCnt::non_neg_integer(), SendBytes::non_neg_integer()}}.
   -type message() ::
  -    {send, DestPid::pid(), Message::comm:message()} |
  +    {send, DestPid::pid(), Message::comm:message(), Options::comm:send_options()} |
       {tcp, Socket::inet:socket(), Data::binary()} |
       {tcp_closed, Socket::inet:socket()} |
       {report_stats} |
  
positive.code:             fail
      end.
  
  send_bundle_if_ready(InState) ->
      QL = msg_queue_len(InState),
      case QL of
  
negative.code:                             MaxBundle = erlang:max(200, MQL div 100),
                              T1 = set_msg_queue(State, {[{DestPid, Message}], [Options]}),
                              T2 = set_msg_queue_len(T1, 1),
                              % note: need to set the bundle size equal to MQL
                              % -> to process this 1 msg + MQL messages (see below)
                              set_desired_bundle_size(T2, erlang:min(MQL, MaxBundle));
                         true ->
                              NewSocket =
                                  send({dest_ip(State), dest_port(State), Socket},
  