anchor.diff:              RNL = if RN0 == [] -> [];
                        true      -> [{name, RN0}]
                     end,
  -            RNL ++ [ICT, {Acf, CF}, {message_queue_len, MQL}]
  -    end.
  +            {"~w", [RNL ++ [ICT, {Acf, CF}, {message_queue_len, MQL}]]}
  +    end;
  +get_pretty_proc_or_port_info(Port, _Acf) when is_port(Port) ->
  +    PortInfo = erlang:port_info(Port),
  +    {value, {name, Name}, PortInfo2} = lists:keytake(name, 1, PortInfo),
  +    QueueSize = [erlang:port_info(Port, queue_size)],
  +    Connected = case proplists:get_value(connected, PortInfo2) of
  +                    undefined ->
  +                        [];
  +                    ConnectedPid ->
  +                        case proc_lib:translate_initial_call(ConnectedPid) of
  +                            {proc_lib, init_p, 5} ->   % not by proc_lib, see docs
  +                                [];
  +                            ICT ->
  +                                [{initial_call, ICT}]
  +                        end
  +                end,
  +    {"name ~s ~w", [Name, lists:append([PortInfo2, QueueSize, Connected])]}.
   
   
   %% @doc If the message type is due to a large heap warning
  
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
  