anchor.diff:      [I || <<I:64/integer>> <= Bin].
   
   write_index(#mstore{name=F, index=I, offset=O, size=S}) ->
  -    file:write_file(F ++ ".idx", io_lib:format("~p.", [{O, S, gb_trees:to_list(I)}])).
  +    file:write_file([F | ".idx"], io_lib:format("~p.", [{O, S, gb_trees:to_list(I)}])).
   
   -ifdef(TEST).
   
  
positive.code: 
  do_get(S, Dir, Metric, [{Time, Count} | R], Acc) ->
      FileBase = (Time div S)*S,
      Base = Dir ++ "/" ++ integer_to_list(FileBase),
      {ok, F} = open(Base, FileBase, S),
      case read(F, Metric, Time, Count) of
          {ok, D} ->
  
negative.code:         {ok, _} ->
              {error, bad_index};
          _E ->
              case file:open([File |".mstore"], [read, write | ?OPTS]) of
                  {ok, F} ->
                      M = #mstore{name=File, file=F, offset=Offset,
                                  size=Size, next=0},
  