anchor.diff:              Self ! {http_reply, Ref, Reply, Transport}
       end,
       NewRequests = [{Ref, proc_lib:spawn_link(AsyncReq)} | Requests],
  -    S#state{rid = S#state.rid+1, requests = NewRequests}.
  +    S#state{rid = NewRid, requests = NewRequests}.
   
   sync_send(Transport, Body, S=#state{}) ->
       {ok, Reply} = request(Transport, Body),
  
positive.code: send_raw(#transport{rcv_pid = Pid} = Transport, Body) ->
      gen_server:cast(Pid, {send_raw, Transport, Body}).
  
  get_rid(#transport{rcv_pid = Pid}) ->
      gen_server:call(Pid, get_rid).
  
  
negative.code:                    Headers, exml:to_iolist(Body),
                     infinity, []).
  
  send(Transport, Body, State) ->
      send(Transport, Body, State#state.rid+1, State).
  
  send(Transport, Body, NewRid, #state{requests = Requests} = S) ->
      Ref = make_ref(),
      Self = self(),
      AsyncReq = fun() ->
  