anchor.diff:  	    Path1 = mk_path(Path0),
   	    Path  = make_set(Path1 ++ code:get_path()),
   	    ModTestP = {member(src_tests, Flags),xref_p(Flags)},
  -	    case get_release(RelName, Path, ModTestP, machine(Flags)) of
  +	    case get_release(RelName, Path, ModTestP) of
   		{ok, Release, Appls, Warnings0} ->
   		    Warnings = wsasl(Flags, Warnings0),
   		    case systools_lib:werror(Flags, Warnings) of
  
positive.code: badarg(BadArg, Args) ->
      erlang:error({badarg,BadArg}, Args).
  
  machine(Flags) ->
      case get_flag(machine,Flags) of
  	{machine, Machine} when is_atom(Machine) -> Machine;
  	_                                        -> false
      end.
  
  get_script_name(RelName, Flags) ->
      case get_flag(script_name,Flags) of
  	{script_name,ScriptName} when is_list(ScriptName) -> ScriptName;
  
negative.code:     find_pos(N+1, Name, OrderedAppls).
  
  %%______________________________________________________________________
  %% check_modules(Appls, Path, TestP) ->
  %%  {ok, Warnings} | throw({error, What})
  %%   where Appls = [{App,Vsn}, #application}]
  %%   performs logical checking that we can find all the modules
  %%   etc.
  
  check_modules(Appls, Path, TestP) ->
      %% first check that all the module names are unique
      %% Make a list M1 = [{Mod,App,Dir}]
      M1 = [{Mod,App,A#application.dir} ||
  