anchor.diff:      end.
   
   stop_node(Node) ->
  -    monitor_node(Node, true),
  -    spawn(Node, fun () -> halt() end),
  -    receive {nodedown, Node} -> ok end.
  +    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)),
  
positive.code:     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.
      Apps = rpc:call(Node,application,which_applications,[]),
      ?m({ua,"Application for testing unicode in reltool - αβ","1.0"},
         lists:keyfind(ua,1,Apps)),
  
negative.code:     reltool_test_lib:end_per_suite(Config).
  
  init_per_testcase(Func,Config) ->
      Node = full_node_name(?NODE_NAME),
      case net_adm:ping(Node) of
  	pong -> stop_node(Node);
  	pang -> ok
      end,
      reltool_test_lib:init_per_testcase(Func,Config).
  end_per_testcase(Func,Config) -> 
      reltool_test_lib:end_per_testcase(Func,Config).
  