anchor.diff:  handle_info(clear_pem_cache, #state{pem_cache = PemCache,
   				    clear = Interval,
   				    last_pem_check = CheckPoint} = State) ->
  -    NewCheckPoint = os:timestamp(),
  +    NewCheckPoint = erlang:convert_time_unit(os:system_time(), native, second),
       start_pem_cache_validator(PemCache, CheckPoint),
       erlang:send_after(Interval, self(), clear_pem_cache),
       {noreply, State#state{last_pem_check = NewCheckPoint}};
  
positive.code: 
  -record(state, {
  	  pem_cache,                  
  	  last_pem_check             :: erlang:timestamp(),
  	  clear            :: integer()
  	 }).
  
  
negative.code:     PemCache = ssl_pkix_db:create_pem_cache(Name),
      Interval = pem_check_interval(),
      erlang:send_after(Interval, self(), clear_pem_cache),
      erlang:system_time(second),
      {ok, #state{pem_cache = PemCache,
  		last_pem_check =  erlang:convert_time_unit(os:system_time(), native, second),
  		clear = Interval 	
  	       }}.
  
  