anchor.diff:                filename:join([BinDir, "to_erl"]), [preserve]),
       
       %% create start_erl.data and sys.config
  +    p("target_system -> create start_erl.data and sys.config"),
       StartErlData = filename:join([InstallDir, "releases", "start_erl.data"]),
       write_file(StartErlData, io_lib:fwrite("~s ~s~n", [ErtsVsn, RelVsn])),
       SysConfig = filename:join([InstallDir, "releases", RelVsn, "sys.config"]),
       write_file(SysConfig, "[]."),
       
       %% Insert 'start' script from data_dir - modified to add sname and heart
  +    p("target_system -> insert 'start' script from data-dir"),
       copy_file(filename:join(proplists:get_value(data_dir,Config),"start.src"),
   	      filename:join(ErtsBinDir,"start.src")),
       ok = file:change_mode(filename:join(ErtsBinDir,"start.src"),8#0755),
  
positive.code:     %% (this has been fixed in OTP 17 - is is now installed with
      %% $INSTALL_SCRIPT instead of $INSTALL_DATA and should therefore
      %% be executable from the start)
      ok = file:change_mode(filename:join(ErtsBinDir,"start_erl.src"),8#0755),
  
      %% Substitute variables in erl.src, start.src and start_erl.src
      %% (.src found in erts-xxx/bin - result stored in bin)
      subst_src_scripts(["erl", "start", "start_erl"], ErtsBinDir, BinDir, 
                        [{"FINAL_ROOTDIR", InstallDir}, {"EMU", "beam"}],
                        [preserve]),
  
      %% Create RELEASES
      RelFile = filename:join([InstallDir, "releases", 
  			     filename:basename(RelName) ++ ".rel"]),
      release_handler:create_RELEASES(InstallDir, RelFile),
  
      true = test_server:stop_node(Node),
  
      {RelName,Apps}.
  
  %%%-----------------------------------------------------------------
  %%% Create a release containing the current (the test node) OTP
  
negative.code: %% If this is a patched version of major release X, then this test
  %% performs an upgrade from major release X to the current release.
  minor(Config) ->
      put(verbose, true),
      p("minor -> get current major release"),
      CurrentMajor = erlang:system_info(otp_release),
      Current = CurrentMajor++"_patched",
      upgrade_test(CurrentMajor,Current,Config).
  
  %%%-----------------------------------------------------------------
  upgrade_test(FromVsn,ToVsn,Config) ->
      p("upgrade_test -> entry with"
        "~n      FromVsn: ~p"
        "~n      ToVsn:   ~p"
        "~n      Config:  ~p", [FromVsn, ToVsn, Config]),
      OldRel =
  	case test_server:is_release_available(FromVsn) of
  	    true ->
  