anchor.diff:  
       %% Add bin and log dirs
       BinDir = filename:join([InstallDir, "bin"]),
  -    file:make_dir(BinDir),
  -    file:make_dir(filename:join(InstallDir,"log")),
  +    ok = make_dir(BinDir),
  +    ok = 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"])),
  +    ok = delete_file(filename:join([ErtsBinDir, "erl"])),
  +    ok = delete_file(filename:join([ErtsBinDir, "start"])),
  +    ok = delete_file(filename:join([ErtsBinDir, "start_erl"])),
   
       %% Copy .boot to bin/start.boot
       copy_file(RelName++".boot",filename:join([BinDir, "start.boot"])),
  
positive.code: 				 end
  			 end,
  			 AllNodes),
      [rpc:call(Node,erlang,halt,[]) || Node <- Nodes],
      Config.
  
  %%-----------------------------------------------------------------
  
negative.code:     case lists:member(preserve, Opts) of
          true ->
              {ok, FileInfo} = file:read_file_info(Src),
              ok = file:write_file_info(Dest, FileInfo);
          false ->
              ok
      end.
  