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: 
  -behaviour(dbus_auth).
  
  % dbus_auth callbacks
  -export([init/0,
  	challenge/2]).
  
  init() ->
      ?debug("Init DBUS_AUTH_COOKIE_SHA1 authentication~n", []),
  
negative.code: 
  challenge(Chall, waiting_challenge) ->
      case binary:split(Chall, <<$\ >>, [global]) of
          [Context, CookieId, ServerChallenge] ->
              case read_cookie(Context, CookieId) of
                  error ->
                      {error, no_cookie};
                  {ok, Cookie} ->
                      Challenge = calc_challenge(),
                      {ok, calc_response(ServerChallenge, Challenge, Cookie)}
              end;
          _ ->
              {error, invalid_challenge}
      end;
  challenge(_, _) ->
  