anchor.diff:  		S0
   	catch
   	    _:_ ->
  -		format(State, "ERROR: ~p - ~p\n", [Format,Args])
  +		format(State, "ERROR: ~tp - ~tp\n", [Format,Args])
   	end,
       [S|format_body(State, T)];
   format_body(_State, []) ->
  
positive.code:     end.
  
  header({{Y,Mo,D},{H,Mi,S}}, Title, UTC) ->
      io_lib:format("~n=~s==== ~p-~s-~p::~s:~s:~s ~s===~n",
                    [Title,D,month(Mo),Y,t(H),t(Mi),t(S),UTC]).
  
  t(X) when is_integer(X) ->
  
negative.code: parse_event(_) -> ignore.
  
  format_term(Term) when is_list(Term) ->
      case string_p(lists:flatten(Term)) of
  	true ->
  	    [{"~ts\n",[Term]}];
  	false ->
  	    format_term_list(Term)
      end;
  format_term(Term) ->
      [{"~tp\n",[Term]}].
  
  format_term_list([{Tag,Data}|T]) ->
      [{"    ~tp: ~tp\n",[Tag,Data]}|format_term_list(T)];
  format_term_list([Data|T]) ->
      [{"    ~tp\n",[Data]}|format_term_list(T)];
  format_term_list([]) ->
      [].
  
  string_p([]) ->
      false;
  string_p(FlatList) ->
      io_lib:printable_list(FlatList).
  
  get_utc_config() ->
      %% SASL utc_log configuration overrides stdlib config
  