anchor.diff:      core_search_conf(RunByTS, DBTop, false).
   
   core_search_conf(RunByTS, DBTop, XDir) ->
  -    SearchDir = case is_dir(DBTop) of
  -		    false ->
  -			case code:which(test_server) of
  -			    non_existing ->
  -				{ok, CWD} = file:get_cwd(),
  -				CWD;
  -			    TS ->
  -				filename:dirname(filename:dirname(TS))
  -			end;
  -		    true ->
  -			DBTop
  -		end,
  +    SearchDir = search_dir(DBTop),
       XSearchDir = case is_dir(XDir) of
   		     false ->
   			 false;
  
positive.code: 		      cerl = find_cerl(DBTop),
  		      file = os:find_executable("file"),
  		      run_by_ts = RunByTS}.
  
  file_inspect(#core_search_conf{file = File}, Core) ->
      FRes0 = os:cmd(File ++ " " ++ Core),
  
negative.code: search_for_core_files(Dir) ->
      case os:type() of
  	{win32, _} ->
              win32_search(false, Dir);
  	{unix, darwin} ->
  	    core_file_search(core_search_conf(false, Dir, "/cores"));
  	_ ->
  