anchor.diff:  -spec destroy(pid()) -> ok.
   destroy(Tree) ->
       gen_server:call(Tree, destroy, infinity).
  +
  +%% @doc Clear the specified index_hashtree, clearing all associated hashtrees
  +clear(Tree) ->
  +    gen_server:call(Tree, clear, infinity).
   
   %%%===================================================================
   %%% gen_server callbacks
  
positive.code:          insert_object/3,
           async_insert_object/3,
           stop/1,
           destroy/1]).
  
  -export([poke/1,
  
negative.code:                                 anti_entropy_expire,
                                  ?DEFAULT_EXPIRE),
      %% Need to convert from millsec to microsec
      case (Expire =/= never) andalso (Diff > (Expire * 1000)) of
          true ->
              clear_tree(State);
          false ->
  