anchor.diff:                TargetLoad + 1),
       normalize_split_key_b(Split, TargetLoad, End).
   
  -normalize_split_key_b({Key, TakenLoad}, TargetLoad, End) when TakenLoad >
  -        TargetLoad ->
  +normalize_split_key_b({Key, TakenLoad}, TargetLoad, End)
  +  when TakenLoad > TargetLoad ->
       normalize_split_key({Key, TakenLoad - 1}, TargetLoad, End);
  -normalize_split_key_b({_Key, TakenLoad}, TargetLoad, End) when TakenLoad == TargetLoad ->
  +normalize_split_key_b({_Key, TakenLoad}, TargetLoad, End)
  +  when TakenLoad == TargetLoad ->
       normalize_split_key({End, TakenLoad}, TargetLoad, End);
   normalize_split_key_b(Split, TargetLoad, End) ->
  -normalize_split_key(Split, TargetLoad, End).
  -normalize_split_key({Key, TakenLoad}, TargetLoad, End) ->
  -    case TakenLoad < TargetLoad of
  -        true ->
  -            {End, TakenLoad};
  -        _ ->
  -            {Key, TakenLoad}
  -    end.
  +    normalize_split_key(Split, TargetLoad, End).
  +
  +normalize_split_key({_Key, TakenLoad}, TargetLoad, End)
  +  when TakenLoad < TargetLoad ->
  +    {End, TakenLoad};
  +normalize_split_key({Key, TakenLoad}, _TargetLoad, _End) ->
  +    {Key, TakenLoad}.
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   %% Snapshot-related functions
  
positive.code:     {Elements, RestInterval} = intervals:get_elements(Interval),
      case intervals:is_empty(RestInterval) of
          true ->
              [E || Key <- Elements, E <- [get_entry(State, Key)], not db_entry:is_empty(E)];
          _ ->
              {_, Data} =
                  get_chunk(State, ?RT:hash_key("0"), % any key will work, here!
                             Interval,
                             fun(DBEntry) ->
                                     (not db_entry:is_empty(DBEntry)) andalso
                                         intervals:in(db_entry:get_key(DBEntry), Interval)
                             end,
                             fun(E) -> E end, all),
              Data
      end.
  
negative.code:             case intervals:in(Key, MyNewInterval) of
                  true -> {StateAcc, HisList};
                  _ -> NewHisList = case db_entry:is_empty(DBEntry) of
                                        false -> [DBEntry | HisList];
                                        _ -> HisList
                                    end,
                      {delete_entry_at_key(StateAcc, Key, split), NewHisList}
              end
      end,
  