anchor.diff:                     origin_realm = {OR, _}}
           = Caps,
   
  -    Bin = encode(['DPR', {'Origin-Host', OH},
  +    #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, Bin),
  +    send(TPid, Pkt),
       dpa_timer(Tmo),
       ?LOG(send, 'DPR'),
  -    S#state{dpr = diameter_codec:sequence_numbers(Bin)}.
  +    S#state{dpr = {Hid, Eid}}.
   
   opt({timeout, Tmo}, Rec)
     when ?IS_TIMEOUT(Tmo) ->
  
positive.code:         close({already_connected, Remote, LCaps}, S),
      CER = build_CER(S),
      ?LOG(send, 'CER'),
      send(TPid, encode(CER)),
      start_timer(S#state{state = 'Wait-CEA'}).
  
  %% Register ourselves as connecting to the remote endpoint in
  %% question. This isn't strictly necessary since a peer implementing
  
negative.code:     Hdr = #diameter_header{version = ?DIAMETER_VERSION,
                             end_to_end_id = Seq,
                             hop_by_hop_id = Seq},
      diameter_codec:encode(?BASE, #diameter_packet{header = Hdr,
                                                    msg = Rec}).
  
  sequence() ->
      case getr(?SEQUENCE_KEY) of
  