anchor.diff:  dict0(D) ->
       ?A("diameter_gen_base_" ++ ?L(D)).
   
  -dict(Msg, nas4005 = D) ->
  -    if 'answer-message' == hd(Msg);
  -       ?is_record(Msg, 'diameter_base_answer-message') ->
  +dict(Msg, Dict) ->
  +    d(name(Msg), Dict).
  +
  +d(N, nas4005 = D) ->
  +    if N == {list, 'answer-message'};
  +       N == {map, 'answer-message'};
  +       N == {record, 'diameter_base_answer-message'} ->
               diameter_gen_base_rfc3588;
          true ->
               D
       end;
  -dict(Msg, Dict0)
  -  when 'ACR' == hd(Msg);
  -       'ACA' == hd(Msg);
  -       ?is_record(Msg, diameter_base_accounting_ACR);
  -       ?is_record(Msg, diameter_base_accounting_ACA) ->
  +d(N, Dict0)
  +  when N == {list, 'ACR'};
  +       N == {list, 'ACA'};
  +       N == {map, 'ACR'};
  +       N == {map, 'ACA'};
  +       N == {record, diameter_base_accounting_ACR};
  +       N == {record, diameter_base_accounting_ACA} ->
       acct(Dict0);
  -dict(_, Dict0) ->
  +d(_, Dict0) ->
       Dict0.
   
   acct(diameter_gen_base_rfc3588) ->
  
positive.code:     diameter_gen_acct_rfc6733.
  
  %% Set only values that aren't already.
  set(_, [H|T], Vs) ->
      [H | Vs ++ T];
  set(#group{client_dict = Dict0} = _Group, Rec, Vs) ->
      Dict = dict(Rec, Dict0),
      lists:foldl(fun({F,_} = FV, A) ->
                          set(Dict, Dict:'#get-'(F, A), FV, A)
                  end,
                  Rec,
                  Vs).
  
  set(Dict, E, FV, Rec)
    when E == undefined;
         E == [] ->
      Dict:'#set-'(FV, Rec);
  set(_, _, _, Rec) ->
      Rec.
  
  %% ===========================================================================
  
negative.code:                      {'Destination-Realm', DR},
                       {'Auth-Application-Id', ?APP_ID}]);
  
  set(N, #diameter_packet{msg = Req}, Caps, Group)
    when N == {record, diameter_base_STR};
         N == {record, nas_STR};
         N == {map, 'STR'};
         N == {list, 'STR'} ->
      #diameter_caps{origin_host  = {OH, _},
                     origin_realm = {OR, DR}}
          = Caps,
  