anchor.diff:  dict(_Config) ->
       Dirs = [filename:join(H ++ ["examples", "dict"])
               || H <- [[code:lib_dir(diameter)], [here(), ".."]]],
  -    [] = [RC || {_,F} <- sort(find_files(Dirs, ".*\\.dia")),
  -                RC <- [make(F)],
  -                RC /= ok].
  +    [] = [{F,D,RC} || {_,F} <- sort(find_files(Dirs, ".*\\.dia")),
  +                      D <- ?DICT0,
  +                      RC <- [make(F,D)],
  +                      RC /= ok].
   
   sort([{_,_} | _] = Files) ->
       lists:sort(fun({A,_},{B,_}) ->
  
positive.code:                    {rfc4072_eap, [rfc4005_nas]},
                     {rfc4740_sip, [rfc4590_digest]}]).
  
  %% ===========================================================================
  
  suite() ->
  
negative.code: 
  %% Recursively accumulate inherited dictionaries.
  dep([D|Rest], Acc) ->
      dep(dep(D), Rest, Acc);
  dep([], Acc) ->
      Acc.
  
  dep([{Dict, _} | T], Rest, Acc) ->
      dep(T, [Dict | Rest], [Dict | Acc]);
  dep([], Rest, Acc) ->
      dep(Rest, Acc).
  
  make(Path, Dict0)
    when is_atom(Dict0) ->
      make(Path, atom_to_list(Dict0));
  
  make(Path, Dict0) ->
      Dict = filename:rootname(filename:basename(Path)),
      {Mod, Pre} = make_name(Dict),
      {"diameter_gen_base" ++ Suf = Mod0, _} = make_name(Dict0),
      Name = Mod ++ Suf,
      try
          ok = to_erl(Path, [{name, Name},
                             {prefix, Pre},
                             {inherits, "rfc3588_base/" ++ Mod0}
                             | [{inherits, D ++ "/" ++ M ++ Suf}
                                || {D,M} <- dep(Dict)]]),
          ok = to_beam(Name)
      catch
          throw: {_,_} = E ->
              E
      end.
  
  to_erl(File, Opts) ->
      case diameter_make:codec(File, Opts) of
          ok ->
              ok;
  