anchor.diff:      Archives = Metadata#whisper_metadata.archives,
       Distributed = distribute_points(Now, Points, Archives),
   
  -    lists:foreach(fun ({Archive, Ps}) ->
  -                          do_update_retention_points(IO, Archive, Ps)
  +    lists:foreach(fun ({As, Ps}) ->
  +                          do_update_retention_points(IO, Metadata, As, Ps)
                     end, Distributed).
   
   
  -do_update_retention_points(_IO, _Archive, []) -> ok;
  -do_update_retention_points(IO, Archive, Points) ->
  +do_update_retention_points(_IO, _Metadata, _Archives, []) -> ok;
  +do_update_retention_points(IO, Metadata, [Archive | Lower], Points) ->
       Step = Archive#whisper_archive.seconds,
   
       % we combine all consecutive points (current-interval == last-interval + step)
  
positive.code:     lists:foreach(fun(Ps) ->
                            write_consecutive_points(IO, Archive, BaseInterval, Ps)
                    end, Consecutive),
      ok.
  
  
  write_consecutive_points(IO, Archive, BaseInterval, [{TS, _}, _] = Points) ->
  
negative.code:        true ->
             lager:debug("writing point-seq of len ~w: ~p", [Length, Bytes]),
             ok = write_at(IO, Bytes, Position)
      end.
  
  
  build_consecutive_points(Step, Points) ->
  