anchor.diff:      record_convergence(Filename),
       {reply, ok, State};
   
  -handle_call(stop, _From, #state{lines=Lines0, size_per_type=Map,
  +handle_call(stop, _From, #state{size_per_type=Map,
                                   filename=Filename, tref=TRef}=State) ->
       {ok, cancel} = timer:cancel(TRef),
  -    {ok, Lines} = record(Map, Filename, Lines0),
  +    record(Map, Filename),
       _ = lager:info("Instrumentation timer disabled!"),
  -    {reply, ok, State#state{tref=undefined, lines=Lines}};
  +    {reply, ok, State#state{tref=undefined}};
   
   %% @private
   handle_call(Msg, _From, State) ->
  
positive.code: init([]) ->
      Filename = create_dir(),
      Line = io_lib:format("Type,Seconds,MegaBytes\n", []),
  
      {ok, TRef} = start_timer(),
  
      _ = lager:info("Instrumentation timer enabled!"),
  
      {ok, #state{tref=TRef, filename=Filename, status=running,
                  size_per_type=orddict:new(), lines=Line}}.
  
  %% @private
  -spec handle_call(term(), {pid(), term()}, #state{}) ->
  
negative.code:     MegaSize.
  
  %% @private
  record(Map, Filename) ->
      Timestamp = timestamp(),
      Lines = orddict:fold(
          fun(Type, Size, Acc) ->
              Acc ++ get_line(Type, Timestamp, Size)
          end,
          "",
          Map
      ),
      append_to_file(Filename, Lines).
  
  %% @private
  record_convergence(Filename) ->
      Timestamp = timestamp(),
      Line = get_line(convergence, Timestamp, 0),
  