anchor.diff:                      [{"_", [{'_', [Stats0]}]}]
               end,
   
  -    lists:foreach(
  -      fun ({Bucket, BucketStats}) ->
  +    misc:executing_on_new_process(
  +      fun () ->
                 lists:foreach(
  -                fun ({Period, Samples}) ->
  -                        write_chunk_format(Resp, "per_node_stats(~p, ~p, ~p) =~n",
  -                                           [Node, Bucket, Period]),
  -
  +                fun ({Bucket, BucketStats}) ->
                           lists:foreach(
  -                          fun (Sample) ->
  -                                  write_chunk_format(Resp, "     ~p~n", [Sample])
  -                          end, Samples)
  -                end, BucketStats)
  -      end, Stats),
  -    Resp:write_chunk(<<"\n\n">>),
  +                          fun ({Period, Samples}) ->
  +                                  write_chunk_format(Resp, "per_node_stats(~p, ~p, ~p) =~n",
  +                                                     [Node, Bucket, Period]),
  +
  +                                  lists:foreach(
  +                                    fun (Sample) ->
  +                                            write_chunk_format(Resp, "     ~p~n", [Sample])
  +                                    end, Samples)
  +                          end, BucketStats)
  +                end, Stats),
  +              Resp:write_chunk(<<"\n\n">>)
  +      end),
   
       DiagNoStats = lists:keydelete(stats, 1, PerNodeDiag),
       do_continue_handling_per_node_just_diag(Resp, Node, DiagNoStats).
  
positive.code: do_continue_handling_per_node_just_diag(Resp, Node, Diag) ->
      erlang:garbage_collect(),
  
      write_chunk_format(Resp, "per_node_diag(~p) =~n", [Node]),
      write_chunk_format(Resp, "     ~p~n", [Diag]),
      Resp:write_chunk(<<"\n\n">>).
  
  do_handle_diag(Req, Extra) ->
  
negative.code:     DiagNoProcesses = lists:keydelete(processes, 1,
                                         lists:keydelete(babysitter_processes, 1, PerNodeDiag)),
  
      misc:executing_on_new_process(
        fun () ->
                write_chunk_format(Resp, "per_node_processes(~p) =~n", [Node]),
                lists:foreach(
                  fun (Process) ->
                          write_chunk_format(Resp, "     ~p~n", [Process])
                  end, Processes),
                Resp:write_chunk(<<"\n\n">>)
        end),
  
      misc:executing_on_new_process(
        fun () ->
                write_chunk_format(Resp, "per_node_babysitter_processes(~p) =~n", [Node]),
                lists:foreach(
                  fun (Process) ->
                          write_chunk_format(Resp, "     ~p~n", [Process])
                  end, BabysitterProcesses),
                Resp:write_chunk(<<"\n\n">>)
        end),
  
      do_handle_per_node_stats(Resp, Node, DiagNoProcesses).
  
  