anchor.diff:      case Status of
   	407 ->
   	    ProxyAuth = collect_auth_headers(Status, "Proxy-Authenticate", Responses),
  -	    logger:log(normal, "Aggregating ~p Proxy-Authenticate headers into response ~p ~s",
  -			[length(ProxyAuth), Status, Reason]),
  -	    logger:log(normal, "FREDRIK: PROXY AUTH :~n~p", [ProxyAuth]),
  +	    logger:log(debug, "Aggregating ~p Proxy-Authenticate headers into response '407 ~s'",
  +		      [length(ProxyAuth), Reason]),
   	    NewHeader = keylist:set("Proxy-Authenticate", ProxyAuth, Header),
   	    {Status, Reason, NewHeader, Body};
   	401 ->
   	    WWWAuth = collect_auth_headers(Status, "WWW-Authenticate", Responses),
  -	    logger:log(normal, "Aggregating ~p WWW-Authenticate headers into response ~p ~s",
  -			[length(WWWAuth), Status, Reason]),
  +	    logger:log(debug, "Aggregating ~p WWW-Authenticate headers into response '401 ~s'",
  +                       [length(WWWAuth), Reason]),
   	    NewHeader = keylist:set("WWW-Authenticate", WWWAuth, Header),
   	    {Status, Reason, NewHeader, Body};
   	_ ->
  
positive.code: collect_auth_headers2(Status, Key, [H | T], Res) ->
      collect_auth_headers2(Status, Key, T, Res).
  
  % XXX implement this
  prefer_response(PreferenceList, Responses) ->
      lists:nth(1, Responses).
  
  get_xx_responses(Min, Responses) ->
      Max = Min + 99,
      lists:keysort(1, get_range_responses(Min, Max, Responses)).
  
negative.code: % look for 6xx responses, then pick the lowest but prefer
  % 401, 407, 415, 420 and 484 if we choose a 4xx and avoid
  % 503 if we choose a 5xx.
  make_final_response(Responses) ->
      TwoxxResponses = get_xx_responses(200, Responses),
      ThreexxResponses = get_xx_responses(300, Responses),
  