anchor.diff:      NewTimerRef = reset_timer(TimerRef),
       maybe_collect_garbage(Type),
       {ok, State#state{timer_ref=NewTimerRef}};
  -handle_event({monitor, Pid, Type, Info}, State=#state{timer_ref=TimerRef}) ->
  +handle_event({monitor, PidOrPort, Type, Info}, State=#state{timer_ref=TimerRef}) ->
       %% Reset the inactivity timeout
       NewTimerRef = reset_timer(TimerRef),
  -    {Fmt, Args} = format_pretty_proc_info(Pid, almost_current_function),
  +    {Fmt, Args} = format_pretty_proc_or_port_info(PidOrPort, almost_current_function),
       lager:info("monitor ~w ~w "++ Fmt ++ " ~w",
  -                          [Type, Pid] ++ Args ++ [Info]),
  +                          [Type, PidOrPort] ++ Args ++ [Info]),
       {ok, State#state{timer_ref=NewTimerRef}};
   handle_event(Event, State=#state{timer_ref=TimerRef}) ->
       NewTimerRef = reset_timer(TimerRef),
  
positive.code: %% get_pretty_proc_info(Pid) ->
  %%     get_pretty_proc_info(Pid, current_function).
  
  get_pretty_proc_info(Pid, Acf) ->
      case process_info(Pid, [registered_name, initial_call, current_function,
                              message_queue_len]) of
          undefined ->
  
negative.code: %% format_pretty_proc_info(Pid) ->
  %%     format_pretty_proc_info(Pid, current_function).
  
  format_pretty_proc_or_port_info(PidOrPort, Acf) ->
      try
          case get_pretty_proc_or_port_info(PidOrPort, Acf) of
              undefined ->
                  {"", []};
              Res ->
                  Res
          end
      catch X:Y ->
          {"Pid ~w, ~W ~W at ~w\n",
              [PidOrPort, X, 20, Y, 20, erlang:get_stacktrace()]}
      end.
  
  %% Enabling warnings_as_errors prevents a build since this function is
  