anchor.diff:      normalize_url(<<?DEFAULT_PROTOCOL/binary, "//", Url/binary>>).
   
   
  --spec get_page_body(Url) -> {integer(), list()} | {error, Reason} when
  +-spec get_page_body(Url, UrlContext) -> {integer(), list()} | {error, Reason} when
       Url :: binary(),
  +    UrlContext :: binary(),
       Reason :: any().
  -get_page_body(Url) ->
  -    case httpc:request(get, {binary_to_list(Url), []}, [{timeout, timer:seconds(?TIMEOUT)}], []) of
  +get_page_body(Url, UrlContext) ->
  +    HTTPOptions = [{autoredirect, false}, {timeout, timer:seconds(?TIMEOUT)}],
  +    case httpc:request(get, {binary_to_list(Url), []}, HTTPOptions, []) of
  +        {ok, {{_Version, 301, _StatusMsg}, Headers, _Body}} ->
  +            handle_moved(Headers, UrlContext);
  +        {ok, {{_Version, 302, _StatusMsg}, Headers, _Body}} ->
  +            handle_moved(Headers, UrlContext);
  +        RequestResult -> handle_request_result(RequestResult)
  +    end.
  +
  +handle_moved(Headers, UrlContext) ->
  +    TestAbsoluteUrl = <<"^http">>,
  +    Location = proplists:get_value("location", Headers),
  +    AbsoluteUrl = case re:run(Location, TestAbsoluteUrl) of
  +        {match, _} -> Location;
  +        nomatch ->
  +            {BaseUrl, _} = UrlContext,
  +            binary_to_list(BaseUrl) ++ Location
  +    end,
  +    Result = httpc:request(get, {AbsoluteUrl, []}, [{autoredirect, false}, {timeout, timer:seconds(?TIMEOUT)}], []),
  +    handle_request_result(Result).
  +
  +handle_request_result(RequestResult) ->
  +    case RequestResult of
           {ok, {_, Headers, Body}} ->
           	case content_length(Headers) of
   				0 ->
  
positive.code: %% Add protocol if it doesn't exist
  -spec normalize_url(Url) -> binary() when
      Url :: binary().
  normalize_url(Url) when is_list(Url) ->
      normalize_url(list_to_binary(Url));
  normalize_url(<<"http://", T/binary>>) ->
  
negative.code:         Error -> Error
      end.
  
  -spec remove_duplicates(L) -> list() when
      L :: list().
  remove_duplicates(L) ->
  