anchor.diff:      Diff = Rem - Id,
       Base - Diff.
   
  -run(get, KeyGen, _ValueGen, #state{check_integrity = CI, id = Id, concurrent = Concurrent} = State) ->
  +run(get, KeyGen, _ValueGen, #state{check_integrity = CI, 
  +                                   retry_on_overload = RetryOnOL,
  +                                   id = Id, concurrent = Concurrent} = State) ->
       Key = keygen_global_uniq(CI, Id, Concurrent, KeyGen),
       {NextUrl, S2} = next_url(State),
  -    case do_get(url(NextUrl, Key, State#state.path_params)) of
  +    case do_get(url(NextUrl, Key, State#state.path_params), RetryOnOL) of
           {not_found, _Url} ->
               {ok, S2};
           {ok, _Url, _Headers, Body} ->
  
positive.code:             ok;
          {ok, "204", _Header, _Body} ->
              ok;
          {ok, Code, _Header, _Body} ->
              {error, {http_error, Code}};
          {error, Reason} ->
  
negative.code:             end
      end.
  
  retry_handler(Handler, RetryOnOL) ->
      case RetryOnOL of
          true ->
              io:format("Server Overloaded, Sleep ~p ms and Retry~n", [?OL_SLEEP_INTERNVAL]),
              timer:sleep(?OL_SLEEP_INTERNVAL),
              Handler();
          _ ->
              {error, {http_error, "503"}}
      end.
  
  should_retry({error, send_failed})       -> true;
  should_retry({error, connection_closed}) -> true;
  