anchor.diff:  		_ -> Res
   	    end
       end.
  +
  +win32_search(RunByTS, DBTop) ->
  +    case os:getenv("WSLENV") of
  +        false when RunByTS ->
  +            {skipped, "No idea searching for core-files on old windows"};
  +        false ->
  +            io:format("No idea searching for core-files on old windows");
  +        _ ->
  +            win32_search_2(RunByTS, DBTop)
  +    end.
  +
  +win32_search_2(true, DBTop0) ->
  +    DBTop = search_dir(DBTop0),
  +    Dir = "c:/ldisk/daily_build",
  +    io:format("Find and move 'dmp' files in: ~s to ~s~n",[Dir, DBTop]),
  +    case filelib:wildcard("*.dmp", Dir) of
  +        [] -> ok;
  +        Dumps ->
  +            %% We move the "daily" dmp files to this test-run
  +            Str = lists:flatten(["Core-files found:", lists:join($\s, lists:reverse(Dumps))]),
  +            Rename = fun(File) ->
  +                             FP = filename:join(Dir, File),
  +                             _ = file:rename(FP, filename:join(DBTop, File))
  +                     end,
  +            [Rename(File) || File <- Dumps],
  +            ct:fail(Str)
  +    end;
  +win32_search_2(false, _DBTop0) ->
  +    DBTop = search_dir("c:/ldisk/daily_build"),
  +    io:format("Search for 'dmp' files in: ~s~n",[DBTop]),
  +    case filelib:wildcard("*.dmp", DBTop) of
  +        [] -> "Core-files found: Ignored core-files found:";
  +        Dumps ->
  +            io:format("The dmp files must be removed manually\n", []),
  +            lists:flatten(["Core-files found:", lists:join($\s, lists:reverse(Dumps))])
  +    end.
  
positive.code:     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,
      XSearchDir = case is_dir(XDir) of
  		     false ->
  			 false;
  
negative.code: core_files(Config) when is_list(Config) ->
      case os:type() of
  	{win32, _} ->
              win32_search(true, os:getenv("OTP_DAILY_BUILD_TOP_DIR"));
  	{unix, darwin} ->
  	    core_file_search(
  	      core_search_conf(true,
  