anchor.diff:              fail
       end.
   
  +send_bundle_if_ready(InState) ->
  +    QL = msg_queue_len(InState),
  +    case QL of
  +        0 -> InState;
  +        _ ->
  +            State = inc_msgs_since_bundle_start(InState),
  +            DBS = desired_bundle_size(State),
  +            MSBS = msgs_since_bundle_start(State),
  +            case (QL + MSBS) >= DBS of
  +                true ->
  +                    Socket = socket(State),
  +                    %% io:format("Sending packet with ~p msgs~n", [length(msg_queue(State))]),
  +                    NewSocket =
  +                        send({dest_ip(State), dest_port(State), Socket},
  +                             unpack_msg_bundle, msg_queue(State)),
  +                    T1State = set_socket(State, NewSocket),
  +                    T2State = inc_s_msg_count(T1State),
  +                    T3State = set_msg_queue(T2State, []),
  +                    T4State = set_msg_queue_len(T3State, 0),
  +                    _T5State = set_msgs_since_bundle_start(T4State, 0);
  +                false -> State
  +            end
  +    end.
  +
   -spec state_new(DestIP::inet:ip_address(), DestPort::comm_server:tcp_port(),
                   LocalListenPort::comm_server:tcp_port(),
                   Socket::inet:socket() | notconnected) -> state().
  
positive.code:             %%reconnect
              set_socket(State, notconnected);
          _ ->
              {_, MQL} = process_info(self(), message_queue_len),
              QL = msg_queue_len(State),
              case QL of
                  0 ->
                      if MQL > 4 ->
                              %% start message bundle for sending
                              %% io:format("MQL ~p~n", [MQL]),
                              T1 = set_msg_queue(State, [{DestPid, Message}]),
                              T2 = set_msg_queue_len(T1, QL + 1),
                              set_desired_bundle_size(T2, util:min(MQL,200));
                         true ->
                              NewSocket =
  
negative.code:                 ok = inet:setopts(Socket, [{active, once}]),
                  State
      end,
      send_bundle_if_ready(NewState);
  
  on({tcp_closed, Socket}, State) ->
      log:log(warn,"[ CC ] tcp closed info", []),
  