anchor.diff:           | [{application, [{alias, A},
                              {dictionary, D},
                              {module, [?MODULE, A]}]}
  -            || {A,D} <- [{common, ?DIAMETER_DICT_COMMON},
  -                         {accounting, ?DIAMETER_DICT_ACCOUNTING}]]]).
  +            || {A,D} <- [{base3588, diameter_gen_base_rfc3588},
  +                         {acct3588, diameter_gen_base_accounting},
  +                         {base6733, diameter_gen_base_rfc6733},
  +                         {acct6733, diameter_gen_acct_rfc6733}]]]).
   
   -define(A, list_to_atom).
   -define(L, atom_to_list).
  
positive.code:     server_reject(Config, fun base/1, 3010).
  
  c_unknown_peer(Config) ->
      true = diameter:subscribe(?CLIENT),
      OH = ?HOST("base-srv"),
  
      {CRef, _} = base(Config),
  
      {'CEA', ?caps{},
              ?packet{msg = ?answer_message{'Origin-Host' = OH,
                                            'Result-Code' = 3010}}}
          = client_recv(CRef).
  
  base(Config) ->
      connect(Config, base, []).
  
  %% ====================
  %% Have the base server reject a decent CER with the non-protocol
  
negative.code: %%
  %% %CopyrightBegin%
  %%
  %% Copyright Ericsson AB 2010-2013. All Rights Reserved.
  %%
  %% The contents of this file are subject to the Erlang Public License,
  %% Version 1.1, (the "License"); you may not use this file except in
  