anchor.diff:          Level when Level > Max ->
               {ok, State};
           Level ->
  -            write(Level, undefined, message(Format, Args), Pid, State),
  +            {MsgId, Msg} = message(Format, Args),
  +            write(Level, MsgId, Msg, Pid, State),
               {ok, State}
       end;
   
  
positive.code:     gen_udp:send(Socket, Host, Port, Packet).
  
  message(crash_report, Report) ->
      proc_lib:format(Report);
  message(supervisor_report, Report) ->
      Name = get_value(supervisor, Report),
      Error = get_value(errorContext, Report),
  
negative.code:         {M,F,_} ->
              ok
      end,
      {supervisor_report, {"~p ~p (~p) child: ~p [~p] ~p:~p",
              [Name, Error, Reason, ChildName, ChildPid, M, F]}};
  message(Type, Report) when Type == std_error;
                             Type == std_info;
                             Type == std_warning;
                             Type == progress_report;
                             Type == progress ->
      {Type, {"~2048.0p", [Report]}};
  message(Format, Args) when is_list(Format) ->
      {msg, {Format, Args}};
  message(Format, Args) ->
      {unknown, {"~2048.0p ~2048.0p", [Format, Args]}}.
  
  otp_event_level(error, _) ->                        ?LEVEL_ERR;
  otp_event_level(warning_msg, _) ->                  ?LEVEL_WARN;
  otp_event_level(info_msg, _) ->                     ?LEVEL_INFO;
  otp_event_level(_, {_, crash_report, _}) ->         ?LEVEL_CRIT;
  otp_event_level(_, {_, supervisor_report, _}) ->    ?LEVEL_WARN;
  otp_event_level(_, {_, supervisor, _}) ->           ?LEVEL_WARN;
  otp_event_level(_, {_, progress_report, _}) ->      ?LEVEL_DEBUG;
  otp_event_level(_, {_, progress, _}) ->             ?LEVEL_DEBUG;
  otp_event_level(error_report, _) ->                 ?LEVEL_ERR;
  otp_event_level(warning_report, _) ->               ?LEVEL_WARN;
  otp_event_level(info_report, _) ->                  ?LEVEL_INFO;
  otp_event_level(_, _) ->                            ?LEVEL_DEBUG.
  
  get_value(Key, Props) ->
      case lists:keyfind(Key, 1, Props) of
  