anchor.diff:  read_cookie(Context, CookieId) ->
       ?debug("Reading DBUS cookie: (~p, ~p)~n", [Context, CookieId]),
       Name = filename:join([os:getenv("HOME"),
  -			 ".dbus-keyrings",
  -			 Context]),
  +                          ".dbus-keyrings",
  +                          Context]),
       {ok, File} = file:open(Name, [read, binary]),
       Result = read_cookie2(File, CookieId),
       ok = file:close(File),
  
positive.code: 
  read_cookie2(Device, CookieId) ->
      case io:get_line(Device, "") of
  	eof ->
  	    error;
  	Line ->
  	    case binary:split(strip_eol(Line), <<$\ >>, [global]) of
  		[CookieId1, _Time, Cookie] ->
  		    if
  			CookieId == CookieId1 ->
  			    {ok, Cookie};
  			true ->
  			    read_cookie2(Device, CookieId)
  		    end;
  		_ ->
  		    error
  	    end
      end.
  
  strip_eol(Bin) ->
  
negative.code: 
  -behaviour(dbus_auth).
  
                                                  % dbus_auth callbacks
  -export([init/0,
           challenge/2]).
  
  init() ->
      ?debug("Init DBUS_AUTH_COOKIE_SHA1 authentication~n", []),
  