anchor.diff:  %%% - use an own 'start' script
   %%% - chmod 'start' and 'start_erl'
   target_system(RelName0,RelVsn,CreateDir,InstallDir,Config) ->
  +    p("target_system -> start worker node"),
       {ok,Node} = test_server:start_node(list_to_atom(RelName0),peer,
   				       [{erl,[proplists:get_value(old_rel,Config)]}]),
   
  +    p("target_system -> create relfile"),
       {RelName,Apps,ErtsVsn} = create_relfile(Node,CreateDir,RelName0,RelVsn),
    
       %% Create .script and .boot
  +    p("target_system -> create .script and .boot"),
       ok = rpc:call(Node,systools,make_script,[RelName]),
       
       %% Create base tar file - i.e. erts and all apps
  +    p("target_system -> create base tar file"),
       ok = rpc:call(Node,systools,make_tar,
   		  [RelName,[{erts,rpc:call(Node,code,root_dir,[])}]]),
       
       %% Unpack the tar to complete the installation
  +    p("target_system -> unpack to complete installation"),
       erl_tar:extract(RelName ++ ".tar.gz", [{cwd, InstallDir}, compressed]),
       
       %% Add bin and log dirs
  +    p("target_system -> add bin and log dirs"),
       BinDir = filename:join([InstallDir, "bin"]),
       file:make_dir(BinDir),
       file:make_dir(filename:join(InstallDir,"log")),
   
       %% Delete start scripts - they will be added later
  +    p("target_system -> delete start scripts"),
       ErtsBinDir = filename:join([InstallDir, "erts-" ++ ErtsVsn, "bin"]),
       file:delete(filename:join([ErtsBinDir, "erl"])),
       file:delete(filename:join([ErtsBinDir, "start"])),
       file:delete(filename:join([ErtsBinDir, "start_erl"])),
       
       %% Copy .boot to bin/start.boot
  +    p("target_system -> copy .boot and bin/start.boot"),
       copy_file(RelName++".boot",filename:join([BinDir, "start.boot"])),
       
       %% Copy scripts from erts-xxx/bin to bin
  +    p("target_system -> copy scripts from erts-xxx/bin to bin"),
       copy_file(filename:join([ErtsBinDir, "epmd"]), 
                 filename:join([BinDir, "epmd"]), [preserve]),
       copy_file(filename:join([ErtsBinDir, "run_erl"]), 
  
positive.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) ->
      CurrentMajor = erlang:system_info(otp_release),
      Current = CurrentMajor++"_patched",
      upgrade_test(CurrentMajor,Current,Config).
  
  %%%-----------------------------------------------------------------
  upgrade_test(FromVsn,ToVsn,Config) ->
      OldRel =
  	case test_server:is_release_available(FromVsn) of
  	    true ->
  
negative.code:     end.
  
  upgrade_test1(FromVsn,ToVsn,Config) ->
      p("upgrade_test1 -> get create-dir"),
      CreateDir = proplists:get_value(create_dir,Config),
      p("upgrade_test1 -> get install-dir"),
      InstallDir = proplists:get_value(install_dir,Config),
      FromRelName = "otp-"++FromVsn,
      ToRelName = "otp-"++ToVsn,
  
      {FromRel,FromApps} = target_system(FromRelName, FromVsn,
  				       CreateDir, InstallDir,Config),
      p("upgrade_test1 -> target system:"
        "~n      FromRel:  ~p"
        "~n      FromApps: ~p", [FromRel, FromApps]),
      {ToRel,ToApps} = upgrade_system(FromVsn, FromRel, ToRelName, ToVsn,
  				    CreateDir, InstallDir),
      p("upgrade_test1 -> upgrade system:"
        "~n      ToRel:  ~p"
        "~n      ToApps: ~p", [ToRel, ToApps]),
      do_upgrade(FromVsn, FromApps, ToRel, ToApps, InstallDir).
  
  %%%-----------------------------------------------------------------
  