anchor.diff:          true ->
               dbg:stop_clear(),
               dbg:tracer(process, {fun top:trace_fwd/2, self()}),
  -            dbg:tpl('_', []),
  +            _ = dbg:tpl('_', []),
               dbg:p(Val, [c, return_to]);
           false -> ok
       end,
  
positive.code:     io:format("~n"),
      io:format("Process Dictionary:~n"),
      io:format("~20s ~-60s~n", ["Key", "Value"]),
      [ io:format("~20s ~-60s~n",
                  [ lists:flatten(io_lib:format("~1210.0p", [element(1, X)])),
                    lists:flatten(io_lib:format("~111610.0p", [element(2, X)]))])
        || X <- process_info_get(Infos, dictionary, [])].
  
  
  -spec on(comm:message(), state()) -> state().
  
  
negative.code:                 comm:send_local(TopPid, {output_off}),
                  comm:send_local(TopPid, {stop_sampling}),
                  print_process_dictionary(Pid),
                  _ = io:get_chars("Hit return to continue> ", 1),
                  comm:send_local(TopPid, {enable_sampling, Pid}),
                  comm:send_local(TopPid, {sample_pid, Pid}),
                  comm:send_local(TopPid, {enable_output, pid}),
  