anchor.diff:  concat({Count, MLL, Body, [Msg|More]}) ->
       {NewMLL, NewBody} = append_to_binary(MLL, Body, Msg),
       NewState = {Count+1, NewMLL, NewBody, More},
  -    Full = {next_state, full, NewState},
       case byte_size(NewMLL) + byte_size(NewBody) of
  -        X when X >= ?PARC_MAX_MEM -> Full;
  +        X when X >= ?PARC_MAX_MEM ->
  +            {next_state, full, NewState#state{msgs = reverse(More)}};
           _ -> case (Count + 1) of
  -            ?PARC_MAX_MSG -> Full;
  +            ?PARC_MAX_MSG ->
  +                {next_state, full, NewState#state{msgs = reverse(More)}};
               _ -> concat(NewState)
           end
       end.
  
positive.code:     Parc = <<ProxyPort:16, MLLBytes:32, MLL/binary, Body/binary>>,
      Sock = get(sock),
      gen_tcp:send(Sock, Parc),
      {ok, <<"ok", _/binary>>} = gen_tcp:recv(Sock, 0),
      Sluice = get(sluice),
      case Msgs of
          [] ->
  
negative.code: append({Count, MLL, Body, Msgs}, NewMsg) ->
      {NewMLL, NewBody} = append_to_binary(MLL, Body, NewMsg),
      NewState = {Count+1, NewMLL, NewBody, Msgs},
      case byte_size(NewMLL) + byte_size(NewBody) of
          X when X >= ?PARC_MAX_MEM ->
              {next_state, full, NewState};
          _ -> case (Count + 1) of
              ?PARC_MAX_MSG -> {next_state, full, NewState};
              _ -> {next_state, ready, NewState}
          end
      end.
  