anchor.diff:      ?line file:close(Fd),
       {filename:dirname(Name),filename:basename(Name)}.
   
  +create_big_boot(Config) ->
  +    ?line {ok, OldDir} = file:get_cwd(),
  +    ?line {Options,Local} = case is_source_dir() of 
  +				true -> {[no_module_tests,local],true}; 
  +				_ -> {[no_module_tests],false} 
  +			    end,
  +    ?line {LatestDir,LatestName,Apps} = create_big_script(Config,Local),
  +    ?line ok = file:set_cwd(LatestDir),
  +    ?line ok = systools:make_script(LatestName, Options),
  +    ?line ok = file:set_cwd(OldDir),
  +    {filename:join(LatestDir, LatestName),Apps}.
  +
  +% The following apps cannot be loaded 
  +% hipe .app references (or can reference) files that have no
  +% corresponding beam file (if hipe is not enabled)
  +filter_app("hipe",_) ->
  +    false;
  +% Dialyzer and typer depends on hipe
  +filter_app("dialyzer",_) ->
  +    false;
  +filter_app("typer",_) ->
  +    false;
  +% Orber requires explicit configuration
  +filter_app("orber",_) ->
  +    false;
  +% cos* depends on orber
  +filter_app("cos"++_,_) ->
  +    false;
  +% ic has a mod instruction in the app file but no corresponding start function
  +filter_app("ic",_) ->
  +    false;
  +% Netconf has some dependency that I really do not understand (maybe like orber)
  +filter_app("netconf",_) ->
  +    false;
  +% Safe has the same kind of error in the .app file as ic
  +filter_app("safe",_) ->
  +    false;
  +% OS_mon does not find it's port program when running cerl
  +filter_app("os_mon",true) ->
  +    false;
  +% Other apps should be OK.
  +filter_app(_,_) ->
  +    true.
  +create_big_script(Config,Local) ->
  +    ?line PrivDir = ?config(priv_dir, Config),
  +    ?line Name = filename:join(PrivDir,"full_script_test"),
  +    ?line InitialApplications=application:loaded_applications(),
  +    ?line [application:load(list_to_atom(Y)) || {match,[Y]} <- [ re:run(X,code:lib_dir()++"/"++"([^/-]*).*/ebin",[{capture,[1],list}]) || X <- code:get_path()],filter_app(Y,Local)],
  +    ?line Apps = [ {N,V} || {N,_,V} <- application:loaded_applications()],
  +    ?line {ok,Fd} = file:open(Name ++ ".rel", write),
  +    ?line io:format(Fd,
  +		    "{release, {\"Test release 3\", \"P2A\"}, \n"
  +		    " {erts, \"9.42\"}, \n"
  +		    " ~p}.\n",
  +		    [Apps]),
  +    ?line file:close(Fd),
  +    ?line NewlyLoaded = 
  +	application:loaded_applications() -- InitialApplications,
  +    ?line [ application:unload(N) || {N,_,_} <- NewlyLoaded],
  +    {filename:dirname(Name),filename:basename(Name),Apps}.
  +
   is_source_dir() ->
       filename:basename(code:lib_dir(kernel)) =:= "kernel" andalso
   	filename:basename(code:lib_dir(stdlib)) =:= "stdlib".
  
positive.code: compile_files([], _, _) ->
      ok.
  
  on_load(Config) when is_list(Config) ->
      Master = on_load_test_case_process,
  
  
negative.code:      where_is_file_no_cache, where_is_file_cached,
       purge_stacktrace, mult_lib_roots, bad_erl_libs,
       code_archive, code_archive2, on_load, on_load_embedded,
       big_boot_embedded,
       on_load_errors, native_early_modules].
  
  init_per_suite(Config) ->
  