anchor.diff:  %% CER is a subset of CEA, the latter adding Result-Code and a few
   %% more AVP's.
   cea_from_cer(CER, Dict) ->
  -    [diameter_base_CER | Values] = Dict:'#get-'(CER),
  -    Dict:'#set-'(Values, Dict:'#new-'(diameter_base_CEA)).
  +    RecName = Dict:msg2rec('CEA'),
  +    [_ | Values] = Dict:'#get-'(CER),
  +    Dict:'#set-'(Values, Dict:'#new-'(RecName)).
   
   %% rCEA/3
   
  
positive.code: %% since the corresponding dictionaries expect different values for a
  %% 'Vendor-Id': a list for 3588, an integer for 6733.
  
  map('Vendor-Specific-Application-Id', L, Dict) ->
      Rec = Dict:'#new-'('diameter_base_Vendor-Specific-Application-Id', []),
      Def = Dict:'#get-'('Vendor-Id', Rec),
      [vsa(V, Def) || V <- L];
  map(_, V, _) ->
  
negative.code: %%
  %% Build a CER record to send to a remote peer.
  
  %% Use the fact that diameter_caps is expected to have the same field
  %% names as CER.
  bCER(#diameter_caps{} = Rec, Dict) ->
      RecName = Dict:msg2rec('CER'),
      Values = lists:zip(Dict:'#info-'(RecName, fields),
                         tl(tuple_to_list(Rec))),
      Dict:'#new-'(RecName, [{K, map(K, V, Dict)} || {K,V} <- Values]).
  
  %% map/3
  %%
  