anchor.diff:  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),
  +		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).
   
  
positive.code: 	    test_server:fail(node_not_closed)
      end,
      test_server:sleep(5000),
      ?line case net_adm:ping(Node) of
  	      pong ->
  		  erlang:monitor_node(Node, true),
  		  ?line rpc:call(Node, init, reboot, []),
  		  receive
  		      {nodedown, Node} ->
  			  ok
  		  after 2000 ->
  			  test_server:fail(node_not_closed2)
  		  end,
  		  ok;
  	      _ ->
  		  test_server:fail(node_not_rebooted)
  	  end,
      ok.
  
  %% Only tests bad command, correct behaviour is tested in reboot/1.
  set_cmd(suite) -> [];
  set_cmd(Config) when is_list(Config) ->
      ?line {ok, Node} = start_check(slave, heart_test),
      Cmd = wrong_atom,
      ?line {error, {bad_cmd, Cmd}} = rpc:call(Node, heart, set_cmd, [Cmd]),
      Cmd1 = lists:duplicate(2047, $a),
      ?line {error, {bad_cmd, Cmd1}} = rpc:call(Node, heart, set_cmd, [Cmd1]),
      Cmd2 = lists:duplicate(28, $a),
      ?line ok = rpc:call(Node, heart, set_cmd, [Cmd2]),
      Cmd3 = lists:duplicate(2000, $a),
      ?line ok = rpc:call(Node, heart, set_cmd, [Cmd3]),
      stop_node(Node),
      ok.
  
  clear_cmd(suite) -> {req,[{time,15}]};
  clear_cmd(Config) when is_list(Config) ->
      ?line {ok, Node} = start_check(slave, heart_test),
      ?line ok = rpc:call(Node, heart, set_cmd,
  			[atom_to_list(lib:progname()) ++
  			 " -noshell -heart " ++ name(Node) ++ "&"]),
      ?line rpc:call(Node, init, reboot, []),
      receive
  	{nodedown, Node} ->
  	    ok
  
negative.code: start(doc) -> [];
  start(suite) -> {req, [{time, 10}]};
  start(Config) when is_list(Config) ->
      {ok, Node} = start_check(slave, heart_test),
      rpc:call(Node, init, reboot, []),
      receive
  	{nodedown, Node} -> ok
      after 2000 -> test_server:fail(node_not_closed)
      end,
      test_server:sleep(5000),
      case net_adm:ping(Node) of
  	pang ->
  	    ok;
  	_ -> 
  	    test_server:fail(node_rebooted)
      end,
      test_server:stop_node(Node).
  
  %% Also test fixed bug in R1B (it was not possible to
  