anchor.diff:                  filename:join([TargetDir, "releases", Ver, "vm.args"]),
                   filename:join([".", ?TMP, "releases", Ver, "vm.args"])).
   
  -make_tar(NameVer) ->
  +make_tar(NameVer, NewVer, NewName) ->
       Filename = NameVer ++ ".tar.gz",
       {ok, Cwd} = file:get_cwd(),
       Absname = filename:join([Cwd, Filename]),
       ok = file:set_cwd(?TMP),
       ok = erl_tar:extract(Absname, [compressed]),
       ok = file:delete(Absname),
  +    case os:type() of
  +        {win32,_} ->
  +            {ok, _} = file:copy(
  +                filename:join([".", "releases", NewVer, "start.boot"]),
  +                filename:join([".", "releases", NewVer, NewName ++ ".boot"]));
  +        _ -> ok
  +    end,
       {ok, Tar} = erl_tar:open(Absname, [write, compressed]),
       ok = erl_tar:add(Tar, "lib", []),
       ok = erl_tar:add(Tar, "releases", []),
  
positive.code:     {ok, _} = boot_files(TargetDir, NewVer, NewName),
  
      %% Extract upgrade and tar it back up with changes
      make_tar(NameVer),
  
      %% Clean up files that systools created
      ok = cleanup(NameVer),
  
negative.code:     ok = file:make_dir(filename:join([".", ?TMP])),
      ok = file:make_dir(filename:join([".", ?TMP, "releases"])),
      ok = file:make_dir(filename:join([".", ?TMP, "releases", Ver])),
      case os:type() of
          {win32,_} ->
              ok;
          _ ->
              ok = file:make_symlink(
                  filename:join(["start.boot"]),
                  filename:join([".", ?TMP, "releases", Ver, Name ++ ".boot"]))
      end,
      {ok, _} =
          file:copy(
            filename:join([TargetDir, "releases", Ver, "start_clean.boot"]),
  