anchor.diff:             erlang:length(Applications), % no duplicates
       case applications_top_level(Applications, sets:new()) of
           {ok, Dependencies} ->
  -            TopLevelApplications = lists:foldl(fun(A, L) ->
  -                lists:delete(A, L)
  -            end, Applications, sets:to_list(Dependencies)),
  +            TopLevelApplications = Applications -- sets:to_list(Dependencies),
               {ok, TopLevelApplications};
           {error, _} = Error ->
               Error
  
positive.code: %%%
  %%% @author Michael Truog <mjtruog [at] gmail (dot) com>
  %%% @copyright 2013-2014 Michael Truog
  %%% @version 1.3.2 {@date} {@time}
  %%%------------------------------------------------------------------------
  
  -module(reltool_util).
  
negative.code:                         {ok, []} ->
                              applications_dependencies(Rest, As);
                          {ok, NextAs} ->
                              OtherAs = As -- NextAs,
                              case applications_dependencies(NextAs,
                                                             NextAs ++ OtherAs) of
                                  {ok, NewAs} ->
  