anchor.diff:  
   clean_priv_dir(Conf,Save) ->
       PrivDir = priv_dir(Conf),
  -    rh_test_lib:clean_dir(PrivDir,Save).
  +    rh_test_lib:clean_dir(PrivDir,Save),
  +    case file:list_dir(PrivDir) of
  +	{ok,[]} -> _ = file:del_dir(PrivDir);
  +	_ -> ok
  +    end.
   
   node_name(Sname) when is_atom(Sname) ->
       {ok,Host} = inet:gethostname(),
  
positive.code:     application:start(sasl),
      Config.
  
  end_per_suite(_Config) ->
      ok.
  
  all() -> 
  
negative.code: 	{win32,_} -> delete_all_services();
  	_ -> ok
      end,
      ?t:timetrap_cancel(Dog),
      Config;
  end_per_group(_GroupName, Config) ->
  