anchor.diff:      Erl = filename:join([TargetDir, "bin", "erl"]),
       {ok, Node} = ?msym({ok, _}, start_node(?NODE_NAME, Erl)),
   
  +
       %% The ua application has a unicode string as description - check
       %% that it is translated correctly.
  +    wait_for_app(Node,ua,50),
       Apps = rpc:call(Node,application,which_applications,[]),
       ?m({ua,"Application for testing unicode in reltool - αβ","1.0"},
          lists:keyfind(ua,1,Apps)),
  
positive.code: 	    "-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}],
  	  rpc:call(Node,release_handler,which_releases,[])),
      ?msym(ok, stop_node(Node)),
  
negative.code:     end.
  
  stop_node(Node) ->
      rpc:call(Node,erlang,halt,[]),
      wait_for_node_down(Node,50).
  
  wait_for_node_down(Node,0) ->
      test_server:fail({cant_terminate_node,Node});
  wait_for_node_down(Node,N) ->
      case net_adm:ping(Node) of
  	pong ->
  	    timer:sleep(1000),
  	    wait_for_node_down(Node,N-1);
  	pang ->
  	    ok
      end.
  
  mk_node_args(Name, Args) ->
      Pa = filename:dirname(code:which(?MODULE)),
  