anchor.diff:  
   %%---------------Erlang distribution --------------------------------------
   
  -dist_data_events(DHandle, Events) ->
  +dist_data(DHandle, Packet) ->
       case erlang:dist_ctrl_get_data(DHandle) of
           none ->
               erlang:dist_ctrl_get_data_notification(DHandle),
  -            lists:reverse(Events);
  +            [];
           Data ->
  -            Event = {next_event, {call, {self(), undefined}}, {application_data, Data}},
  -            dist_data_events(DHandle, [Event | Events])
  +            %% This is encode_packet(4, Data) without Len check
  +            %% since the emulator will always deliver a Data
  +            %% smaller than 4 GB, and the distribution will
  +            %% therefore always have to use {packet,4}
  +            Len = iolist_size(Data),
  +            [<<Len:32>>,Data|dist_data(DHandle, Packet)]
       end.
   
   consume_ticks() ->
  
positive.code:      StateData#data{connection_states = 
                          ConnectionStates0#{current_write => WritesState},
                      negotiated_version = Version}};
  connection(info, dist_data, #data{dist_handle = DHandle} = StateData) ->  
      Events = dist_data_events(DHandle, []),
      {next_state, ?FUNCTION_NAME, StateData, Events};
  connection(info, tick, StateData) ->  
      consume_ticks(),
      {next_state, ?FUNCTION_NAME, StateData, 
  
negative.code:                              renegotiate_at = RenegotiateAt} = StateData0) ->
      case time_to_renegotiate(Data, ConnectionStates0, RenegotiateAt) of
  	true ->
  	    ssl_connection:internal_renegotiation(Pid, ConnectionStates0),
              {next_state, handshake, StateData0, 
               [{next_event, internal, {application_packets, From, Data}}]};
  	false ->
  	    {Msgs, ConnectionStates} =
                  Connection:encode_data(
                    iolist_to_binary(Data), Version, ConnectionStates0),
              StateData = StateData0#data{connection_states = ConnectionStates},
  	    case Connection:send(Transport, Socket, Msgs) of
                  ok when DistHandle =/=  undefined ->
  