anchor.diff:      _ = erldocs_core:maybe_delete_xmerl_table(),
       seq_gen(SiteDir, TmpDir, Rest, N-1, BlackListed).
   
  -maybe_HTTP_fetch (Url) ->
  -    case httpc:request(get, {Url,[]}, [], [{body_format,binary}]) of
  -        {ok, {_,_,Body}} -> Body;
  -        _ -> <<>>
  +maybe_HTTP_fetch (SiteDir, Url) ->
  +    case file:read_file(filename:join(SiteDir, "blacklist.txt")) of
  +        {ok, Bin} -> Bin;
  +        {error, _R} ->
  +            io:format("no local blacklist: ~p\n", [_R]),
  +            case httpc:request(get, {Url,[]}, [], [{body_format,binary}]) of
  +                {ok, {_,_,Body}} -> Body;
  +                _ -> <<>>
  +            end
       end.
   
   %% End of Module.
  
positive.code: %% API
  
  main ([SiteDir, TmpDir, ListFile]) ->
      {ok,_} = application:ensure_all_started(ssl),
      {ok,_} = application:ensure_all_started(inets),
      BlackList = read_URLs(maybe_HTTP_fetch(eo_core:remote_path_blacklist())),
      io:format("~p URLs blacklisted\n", [length(BlackList)]),
      URLs = case filelib:is_regular(ListFile) of
                 false -> %% Not a file: maybe it's a URL then?
                     [ListFile];
                 true ->
                     {ok, Raw} = file:read_file(ListFile),
                     read_URLs(Raw)
             end,
      seq_gen(fabs(SiteDir), fabs(TmpDir), URLs, length(URLs), BlackList);
  
  main (_) ->
      usage().
  
negative.code:     URLs = [binary_to_list(Bin) || Bin <- Bins, Bin =/= <<>>],
      lists:filtermap(fun eo_scm:url/1, URLs).
  
  seq_gen (_SiteDir, _TmpDir, [], _) -> ok;
  seq_gen (SiteDir, TmpDir, URLs, N) ->
      {ok,_} = application:ensure_all_started(ssl),
      {ok,_} = application:ensure_all_started(inets),
      BlackList = read_URLs(maybe_HTTP_fetch(SiteDir, eo_core:remote_path_blacklist())),
      io:format("~p URLs blacklisted\n", [length(BlackList)]),
      seq_gen(SiteDir, TmpDir, URLs, N, BlackList).
  
  seq_gen (_SiteDir, _TmpDir, [], _, _) -> ok;
  seq_gen (SiteDir, TmpDir, [Url|Rest], N, BlackListed) ->
      case lists:member(Url, BlackListed) of
  