anchor.diff:      State1 = State#state{estores = gb_trees:empty()},
       {reply, ok, State1};
   
  -handle_call({delete, Bucket}, _From,
  -             State = #state{dir = Dir}) ->
  +handle_call({delete, Bucket}, _From, State) ->
       {R, State1} = case get_set(Bucket, State) of
                         {ok, {EStore, S1}} ->
                             estore:delete(EStore),
  -                          file:del_dir([Dir, $/, Bucket]),
  +                          file:del_dir(bucket_dir(Bucket, State)),
                             Estore = gb_trees:delete(Bucket, S1#state.estores),
                             {ok, S1#state{estores = Estore}};
                         _ ->
  
positive.code:                end,
      {reply, {ok, Buckets1}, State};
  
  handle_call(count, _From, State = #state{dir = PartitionDir}) ->
      case list_buckets(State) of
          {ok, Buckets} ->
              Count = lists:foldl(fun(B, Acc) ->
                                          F =[PartitionDir, $/, B],
                                          {ok, Store} = estore:open(F),
                                          {ok, N, Store1} = estore:count(Store),
                                          estore:close(Store1),
  
negative.code:         {value, EStore} ->
              {ok, {EStore, State}};
          none ->
              case bucket_exists(Bucket, State) of
                  true ->
                      R = new_store(Bucket, State),
                      Store1 = gb_trees:insert(Bucket, R, Store),
                      {ok, {R, State#state{estores = Store1}}};
                  _ ->
  