anchor.diff:                      undefined ->
                           case pid_groups:find_all(InspectPidAtom) of
                               [Pid] -> Pid;
  +                            [] -> throw({no_pid, no_pid});
                               Pids ->
  +                                SPids = lists:sort(Pids),
                                   io:format("Which of the ~ps do you mean?~n",
                                             [InspectPidAtom]),
                                   lists:foldl(
  
positive.code: -export([on/2, init/1]).
  
  -export([top/0]).
  
  -type state() :: { pdb:tableid(),
                     false | all | pid, %% sampling: no, all or a single pid
  
negative.code: on({sample_all}, State) -> State;
  
  %% gather information on a single pid for periodic statistical output
  on({sample_pid, Pid}, State) when is_pid(element(2, State)) ->
      TableName = table(State),
      NewVals = try_process_info(
                  Pid,
                  [message_queue_len, status]),
      TakeVals = case process_info_get(NewVals, status, dead_pid) of
                     running -> true;
                     runnable -> true;
                     _ -> false
                 end,
      %% comm:send_local_after(1, self(), {sample_pid, Pid}),
      comm:send_local(self(), {sample_pid, Pid}),
      case TakeVals of
          true ->
              %P = {Pid, process_info_get(NewVals, current_function, dead)},
              P = {Pid, erlang:get(current_function)},
              Entry = pdb:get(P, TableName),
              case Entry of
                  undefined ->
  