anchor.diff:      Hdr = #diameter_header{version = ?DIAMETER_VERSION,
                              end_to_end_id = Seq,
                              hop_by_hop_id = Seq},
  -    Pkt = #diameter_packet{header = Hdr,
  -                           msg = Rec},
  -    #diameter_packet{bin = Bin} = diameter_codec:encode(?BASE, Pkt),
  -    Bin.
  +    diameter_codec:encode(?BASE, #diameter_packet{header = Hdr,
  +                                                  msg = Rec}).
   
   sequence() ->
       case getr(?SEQUENCE_KEY) of
  
positive.code: %% rcv/3
  
  %% Incoming CEA.
  rcv('CEA', Pkt, #state{state = 'Wait-CEA'} = S) ->
      handle_CEA(Pkt, S);
  
  %% Incoming CER
  
negative.code:                    origin_realm = {OR, _}}
          = Caps,
  
      #diameter_packet{header = #diameter_header{end_to_end_id = Eid,
                                                 hop_by_hop_id = Hid}}
          = Pkt
          = encode(['DPR', {'Origin-Host', OH},
                           {'Origin-Realm', OR},
                           {'Disconnect-Cause', Cause}]),
      send(TPid, Pkt),
      dpa_timer(Tmo),
      ?LOG(send, 'DPR'),
      S#state{dpr = {Hid, Eid}}.
  
  opt({timeout, Tmo}, Rec)
    when ?IS_TIMEOUT(Tmo) ->
  