anchor.diff:         Files) when length(Files) =< 2 ->
       <<Data:Size/binary, DataRest/binary>> = InData,
       FileBase = (Time div S)*S,
  -    Base = [D, $/, integer_to_list(FileBase)],
  +    Base = filename:join([D, integer_to_list(FileBase)]),
       {ok, F1} = mfile:open(Base, [{offset, FileBase},
                                    {file_size, S},
                                    {mode, write}]),
  
positive.code: 
  %%--------------------------------------------------------------------
  %% @doc
  %% Recursively deletes a metric set.
  %% @end
  %%--------------------------------------------------------------------
  
negative.code:     <<Data:Size/binary, DataRest/binary>> = InData,
      FileBase = (Time div S)*S,
      mfile:close(F),
      Base = filename:join([D, integer_to_list(FileBase)]),
      {ok, F1} = mfile:open(Base, [{offset, FileBase},
                                   {file_size, S},
                                   {mode, write}]),
  