anchor.diff:  %% get_pretty_proc_info(Pid) ->
   %%     get_pretty_proc_info(Pid, current_function).
   
  -get_pretty_proc_info(Pid, Acf) ->
  +get_pretty_proc_or_port_info(Pid, Acf) when is_pid(Pid) ->
       case process_info(Pid, [registered_name, initial_call, current_function,
                               message_queue_len]) of
           undefined ->
  
positive.code:             RNL = if RN0 == [] -> [];
                       true      -> [{name, RN0}]
                    end,
              RNL ++ [ICT, {Acf, CF}, {message_queue_len, MQL}]
      end.
  
  
  %% @doc If the message type is due to a large heap warning
  
negative.code:     NewTimerRef = reset_timer(TimerRef),
      maybe_collect_garbage(Type),
      {ok, State#state{timer_ref=NewTimerRef}};
  handle_event({monitor, PidOrPort, Type, Info}, State=#state{timer_ref=TimerRef}) ->
      %% Reset the inactivity timeout
      NewTimerRef = reset_timer(TimerRef),
      {Fmt, Args} = format_pretty_proc_or_port_info(PidOrPort, almost_current_function),
      lager:info("monitor ~w ~w "++ Fmt ++ " ~w",
                            [Type, PidOrPort] ++ Args ++ [Info]),
      {ok, State#state{timer_ref=NewTimerRef}};
  handle_event(Event, State=#state{timer_ref=TimerRef}) ->
      NewTimerRef = reset_timer(TimerRef),
  