anchor.diff:      bitcask:fold_keys(Ref,
           fun(#bitcask_entry{key=BK},Acc) ->
                   {B,K} = binary_to_term(BK),
  -                case B of
  -                    Bucket ->
  -                        case Fun(K) of
  -                            true -> [K|Acc];
  -                            false -> Acc
  -                        end;
  -                    _ ->
  +		case (B =:= Bucket) andalso Fun(K) of
  +		    true ->
  +			[K|Acc];
  +		    false ->
                           Acc
                   end
           end, []);
  
positive.code: %% Invoke bitcask:status/1 for a given directory
  status(Dir) ->
      Ref = bitcask:open(Dir),
      Status = bitcask:status(Ref),
      bitcask:close(Ref),
      Status.
  
  %% @private
  %% Schedule sync (if necessary)
  
negative.code:     F = fun(_K, _Acc0) ->
                  throw(found_one_value)
          end,
      (catch bitcask:fold_keys(Ref, F, undefined)) /= found_one_value.
  
  callback({Ref, _}, Ref, {sync, SyncInterval}) when is_reference(Ref) ->
      bitcask:sync(Ref),
  