anchor.diff:          true ->
               Do =
                   fun (TokenInfo) ->
  -                    do_put(TokenInfo, Field, Value, ReplyTo, S)
  +                    S1 = do_put(TokenInfo, Field, Value, ReplyTo, S),
  +                    S1#state{url_cache = false}
                   end,
               S1 = authorize(write, Token, ReplyTo, S, Do),
               {noreply, S1, S1#state.timeout};
  
positive.code:         {ok, DestNodes, _DestUrls} ->
              _ = send_replies(ReplyTo, ok),
              S#state{data = {ok, TagContent},
                      replicas = DestNodes,
                      url_cache = false};
          {error, _} = E ->
              _ = send_replies(ReplyTo, E),
              S#state{url_cache = false}
      end.
  
  % Put transaction:
  
negative.code: handle_cast({{delete_tagname, Name}, ReplyTo}, #state{url_cache = Cache} = S) ->
      NewDel = gb_sets:delete_any(Name, Cache),
      NewUrls = [[<<"tag://", Tag/binary>>] || Tag <- gb_sets:to_list(NewDel)],
      S1 = do_put({write, internal},
                  urls,
                  NewUrls,
                  ReplyTo,
                  S#state{url_cache = NewDel}),
      {noreply, S1, S1#state.timeout}.
  
  handle_call(dbg_get_state, _, S) ->
      {reply, S, S};
  