anchor.diff:  
   %% @doc Adds all db_entry objects in the Data list.
   -spec add_data_(DB::db_t(), db_as_list()) -> NewDB::db_t().
  -add_data_(State, Data) ->
  +add_data_(State = {{DB, _FileName}, _Subscr, _SnapState}, Data) ->
       % -> do not use set_entry (no further checks for changed keys necessary)
  -    lists:foldl(
  -          fun(DBEntry, StateAcc) ->
  -                    set_entry_(StateAcc, DBEntry)
  -          end, State, Data).
  +    _ = lists:foldl(
  +          fun(DBEntry, _) ->
  +              ok = toke_drv:insert(DB,
  +                                   erlang:term_to_binary(db_entry:get_key(DBEntry), [{minor_version, 1}]),
  +                                   erlang:term_to_binary(DBEntry, [{minor_version, 1}])),
  +              call_subscribers(State, {write, DBEntry})
  +          end, ok, Data),
  +    State.
   
   %% @doc Splits the database into a database (first element) which contains all
   %%      keys in MyNewInterval and a list of the other values (second element).
  
positive.code: %% @doc Removes all values with the given key from the DB.
  -spec delete_entry_at_key_(DB::db_t(), ?RT:key()) -> NewDB::db_t().
  delete_entry_at_key_(State, Key) ->
      delete_entry_at_key_(State, Key, delete).
  
  %% @doc Removes all values with the given key from the DB with specified reason.
  -spec delete_entry_at_key_(DB::db_t(), ?RT:key(), delete | split) -> NewDB::db_t().
  delete_entry_at_key_(State = {{DB, _FileName}, _Subscr,
                                {SnapTable,LiveLC,SnapLC}}, Key, Reason) ->
      {_, OldEntry} = get_entry2_(State,Key),
      NewLiveLC = db_entry:update_lockcount(OldEntry,db_entry:new(Key),LiveLC),
      toke_drv:delete(DB, erlang:term_to_binary(Key, [{minor_version, 1}])),
      call_subscribers({{DB, _FileName}, _Subscr, {SnapTable,NewLiveLC,SnapLC}},
                       {Reason, Key}).
  
  %% @doc Returns the number of stored keys.
  -spec get_load_(DB::db_t()) -> Load::integer().
  
negative.code:         end,
      HisList = toke_drv:fold(F, [], DB),
      % delete empty entries from HisList and remove all entries in HisList from the DB
      HisListFilt =
          lists:foldl(
            fun(DBEntry, L) ->
                    Key = db_entry:get_key(DBEntry),
                    toke_drv:delete(DB, erlang:term_to_binary(Key, [{minor_version, 1}])),
                    _ = call_subscribers(State, {split, Key}),
                    case db_entry:is_empty(DBEntry) of
                        false -> [DBEntry | L];
                        _     -> L
                    end
            end, [], HisList),
      {State, HisListFilt}.
  
  %% @doc Gets all custom objects (created by ValueFun(DBEntry)) from the DB for
  %%      which FilterFun returns true.
  