anchor.diff:                     module = ModX},
   
       try
  -        TRef = send_request(TPid, Pkt, Req, Timeout),
  +        TRef = send_request(TPid, Pkt, Req, SvcName, Timeout),
           ack(Caller),
           handle_answer(SvcName, AE, recv_answer(Timeout, SvcName, {TRef, Req}))
       after
  -        erase_request(Pkt)
  +        erase_requests(Pkt)
       end.
   
   %% Tell caller a send has been attempted.
  
positive.code:             T
      end.
  
  %% Retransmission, in the service process.
  find_transport([_,_] = RH,
                 Req,
                 #state{service = #diameter_service{pid = Pid,
                                                    applications = Apps}}
                 = S)
    when self() == Pid ->
      #request{app = Alias,
               filter = Filter,
               module = ModX}
          = Req,
      #diameter_app{}
          = App
          = lists:keyfind(Alias, #diameter_app.alias, Apps),
  
      pick_peer(App#diameter_app{module = ModX},
                RH,
                Filter,
                S).
  
  %% get_destination/2
  
  get_destination(Dict, Msg) ->
  
negative.code:     ?Dict:update(Alias, fun(Ps) -> lists:keydelete(Pid, 1, Ps) end, PDict).
  
  %% ---------------------------------------------------------------------------
  %% find_transport/2-3
  %%
  %% Return: {TransportPid, #diameter_caps{}, #diameter_app{}}
  %%         | false
  