anchor.diff:  
       RootDir = code:root_dir(),
       Erl = filename:join([RootDir, "bin", "erl"]),
  -    Args = "-boot_var RELTOOL_EXT_LIB " ++ TargetLibDir ++
  -	" -boot " ++ filename:join(TargetRelVsnDir,RelName) ++
  -	" -sasl releases_dir \\\"" ++ TargetRelDir ++ "\\\"",
  +    EscapedQuote =
  +	case os:type() of
  +	    {win32,_} -> "\\\"";
  +	    _         -> "\""
  +	end,
  +    Args = ["-boot_var", "RELTOOL_EXT_LIB", TargetLibDir,
  +	    "-boot", filename:join(TargetRelVsnDir,RelName),
  +	    "-sasl", "releases_dir", EscapedQuote++TargetRelDir++EscapedQuote],
       {ok, Node} = ?msym({ok, _}, start_node(?NODE_NAME, Erl, Args)),
       ?msym(RootDir, rpc:call(Node, code, root_dir, [])),
       ?msym([{RelName,RelVsn,_,permanent}],
  
positive.code:     spawn(Node, fun () -> halt() end),
      receive {nodedown, Node} -> ok end.
  
  mk_node_cmdline(Name, Prog, Args) ->
      Static = "-detached -noinput",
      Pa = filename:dirname(code:which(?MODULE)),
      NameSw = case net_kernel:longnames() of
                   false -> "-sname ";
                   true -> "-name ";
                   _ -> exit(not_distributed_node)
               end,
      {ok, Pwd} = file:get_cwd(),
      NameStr = atom_to_list(Name),
      Prog ++ " "
          ++ Static ++ " "
          ++ NameSw ++ " " ++ NameStr ++ " "
          ++ "-pa " ++ Pa ++ " "
          ++ "-env ERL_CRASH_DUMP " ++ Pwd ++ "/erl_crash_dump." ++ NameStr ++ " "
          ++ "-setcookie " ++ atom_to_list(erlang:get_cookie())
  	++ " " ++ Args.
  
  full_node_name(PreName) ->
      HostSuffix = lists:dropwhile(fun ($@) -> false; (_) -> true end,
  
negative.code: 
  start_node(Name, ErlPath) ->
      start_node(Name, ErlPath, []).
  start_node(Name, ErlPath, Args0) ->
      FullName = full_node_name(Name),
      Args = mk_node_args(Name, Args0),
      io:format("Starting node ~p: ~s~n",
  	      [FullName, lists:flatten([[X," "] || X <- [ErlPath|Args]])]),
      %io:format("open_port({spawn_executable, ~p}, [{args,~p}])~n",[ErlPath,Args]),
      case open_port({spawn_executable, ErlPath}, [{args,Args}]) of
          Port when is_port(Port) ->
              unlink(Port),
              erlang:port_close(Port),
  