anchor.diff:  %% 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 ->
  
positive.code: %%% - use an own 'start' script
  %%% - chmod 'start' and 'start_erl'
  target_system(RelName0,RelVsn,CreateDir,InstallDir,Config) ->
      {ok,Node} = test_server:start_node(list_to_atom(RelName0),peer,
  				       [{erl,[proplists:get_value(old_rel,Config)]}]),
  
      {RelName,Apps,ErtsVsn} = create_relfile(Node,CreateDir,RelName0,RelVsn),
   
      %% Create .script and .boot
      ok = rpc:call(Node,systools,make_script,[RelName]),
      
      %% Create base tar file - i.e. erts and all apps
      ok = rpc:call(Node,systools,make_tar,
  		  [RelName,[{erts,rpc:call(Node,code,root_dir,[])}]]),
      
      %% Unpack the tar to complete the installation
      erl_tar:extract(RelName ++ ".tar.gz", [{cwd, InstallDir}, compressed]),
      
      %% 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
      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
      copy_file(RelName++".boot",filename:join([BinDir, "start.boot"])),
      
      %% 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"]), 
  
negative.code: 	_ ->
  	    ok
      end. 
  
  
  %%%-----------------------------------------------------------------
  %%% 
  
  p(F) ->
      p(F, []).
  
  p(F, A) ->
      p(get(verbose), F, A).
  
  p(true, F, A) ->
      print(F, A);
  p(_, _, _) ->
      ok.
  
  print(F, A) ->
      ct:pal(F ++ "~n", A).
  
  