anchor.diff:  	    test_server:fail(node_not_closed)
       end,
       test_server:sleep(5000),
  -    ?line case net_adm:ping(Node) of
  -	      pong ->
  -		  erlang:monitor_node(Node, true);
  -	      _ ->
  -		  test_server:fail(node_not_rebooted)
  -	  end,
  -    ?line ok = rpc:call(Node, heart, set_cmd,
  +    case net_adm:ping(Node) of
  +	pong ->
  +	    erlang:monitor_node(Node, true);
  +	_ ->
  +	    test_server:fail(node_not_rebooted)
  +    end,
  +    ok = rpc:call(Node, heart, set_cmd,
   			["erl -noshell -heart " ++ name(Node) ++ "&"]),
  -    ?line ok = rpc:call(Node, heart, clear_cmd, []),
  -    ?line rpc:call(Node, init, reboot, []),
  +    ok = rpc:call(Node, heart, clear_cmd, []),
  +    rpc:call(Node, init, reboot, []),
       receive
   	{nodedown, Node} ->
   	    ok
  
positive.code: end_per_testcase(_Func, Config) ->
      Nodes = nodes(),
      lists:foreach(fun(X) ->
  			  NNam = list_to_atom(hd(string:tokens(atom_to_list(X),"@"))),
  			  case NNam of
  			      heart_test ->
  				  ?t:format(1, "WARNING: Killed ~p~n", [X]),
  				  rpc:cast(X, erlang, halt, []);
  			      _ ->
  				  ok
  			  end
  		  end, Nodes),
      Dog=?config(watchdog, Config),
      test_server:timetrap_cancel(Dog).
  
  
negative.code: 
  start_check(Type, Name) ->
      Args = case ?t:os_type() of
  	{win32,_} -> "-heart -env HEART_COMMAND no_reboot";
  	_ -> "-heart"
      end,
      {ok, Node} = case Type of
  	loose ->
  	    loose_node:start(Name, Args, ?DEFAULT_TIMEOUT_SECS);
  	_ ->
  	    ?t:start_node(Name, Type, [{args, Args}])
      end,
      erlang:monitor_node(Node, true),
      case rpc:call(Node, erlang, whereis, [heart]) of
  	Pid when is_pid(Pid) ->
  