anchor.diff:  end_per_suite(Config) when is_list(Config) ->
       Config.
   
  +
   start_check(Type, Name) ->
  +    start_check(Type, Name, []).
  +start_check(Type, Name, Envs) ->
       Args = case ?t:os_type() of
  -	{win32,_} -> "-heart -env HEART_COMMAND no_reboot";
  -	_ -> "-heart"
  +	{win32,_} -> 
  +	    "-heart " ++ env_encode([{"HEART_COMMAND", no_reboot}|Envs]);
  +	_ ->
  +	    "-heart " ++ env_encode(Envs)
       end,
       {ok, Node} = case Type of
   	loose ->
  
positive.code: %%%
  start_node_run(Name, Env, Function, Argument) -> 
      PA = filename:dirname(code:which(?MODULE)),
      Params = "-heart -env " ++ env_conv(Env) ++ " -pa " ++ PA ++
  	" -s " ++
  	atom_conv(?MODULE) ++ " " ++ atom_conv(Function) ++ " " ++
  	atom_conv(Argument),
      start_node(Name, Params).
  
  start_node(Name, Param) ->
  
negative.code: %%-----------------------------------------------------------------
  suite() -> [{ct_hooks,[ts_install_cth]}].
  
  all() -> [
  	start, restart, reboot,
  	node_start_immediately_after_crash,
  	set_cmd, clear_cmd, get_cmd,
  	kill_pid
      ].
  
  groups() -> 
      [].
  