anchor.diff:          From :: timestamp()) -> zlists:zlist(file:filename()) .
   get_log_files(InstanceName, From) ->
       LogDir=get_data_dir(InstanceName),
  -    Now=now(),
  -    if From >= Now ->
  +    FromLT=to_long_timestamp(From),
  +    Now=to_long_timestamp(now()),
  +    if FromLT >= Now ->
              [];
          true ->
  -           FromDateTime=calendar:now_to_universal_time(From),
              get_log_files(
                InstanceName,
                LogDir,
  -             reopened_filename(InstanceName, FromDateTime, 0))
  +             reopened_filename(InstanceName, FromLT))
       end.
   
   get_log_files(InstanceName, LogDir, FromFilenameExcl) ->
       case filelib:wildcard(
  -		   get_wildcard(InstanceName), LogDir) of
  +           get_wildcard(InstanceName), LogDir) of
           [] -> [InstanceName];
           Files ->
               case lists:dropwhile(
  
positive.code: 
  % Record event
  handle_cast(Event, #state_recorder{buff_size=BuffMaxSize,
  								   buff_max_size=BuffMaxSize}=State) ->
  	handle_cast(Event,flush(State));
  handle_cast({Timestamp,_Data}=Event, 
  			#state_recorder{buff=Buff,buff_size=BuffSize}=State) ->
      {noreply, 
  	 State#state_recorder{last_timestamp=Timestamp, 
  						  buff=[Event|Buff],
  						  buff_size=BuffSize+1}, 1000};
  % Skip message
  handle_cast(_Msg, State) ->
  	{noreply, State}.
  
  flush(#state_recorder{buff=[]}=State) ->
  	State;
  flush(#state_recorder{instance_name=Name,
  					  buff=Buff}=State) ->
  	ok=disk_log:alog_terms(Name, lists:reverse(Buff)),
  	State#state_recorder{buff=[], buff_size=0}.
  
  % Recorder clauses
  handle_info(timeout, #state_recorder{}=State) ->
  
negative.code: 
  % Init recorder
  init({recorder,InstanceName}) ->
      ok=logmachine_receiver_srv:subscribe(
        InstanceName, self(), {gen_server,cast}),
      ensure_dir(get_data_dir(InstanceName)),
      open_disk_log(InstanceName),
      ReoPeriod=get_reopen_period(InstanceName),
  