anchor.diff:  grab_per_node_diag(Nodes) ->
       {Results0, BadNodes} = rpc:multicall(Nodes,
                                            ?MODULE, do_diag_per_node_binary, [], 45000),
  -    {OldNodeResults, Results1} =
  -        lists:partition(
  -          fun ({_Node, {badrpc, {'EXIT', R}}}) ->
  -                  misc:is_undef_exit(?MODULE, do_diag_per_node_binary, [], R);
  -              (_) ->
  -                  false
  -          end,
  -          lists:zip(lists:subtract(Nodes, BadNodes), Results0)),
  -
  -    OldNodes = [N || {N, _} <- OldNodeResults],
  -    Results = [{N, diag_failed} || N <- BadNodes] ++ Results1,
  -
  -    {Results, OldNodes}.
  +    Results1 = lists:zip(lists:subtract(Nodes, BadNodes), Results0),
  +    [{N, diag_failed} || N <- BadNodes] ++ Results1.
   
   handle_just_diag(Req, Extra) ->
       Resp = menelaus_util:reply_ok(Req, "text/plain; charset=utf-8", chunked, Extra),
  
positive.code: 
  -include_lib("eunit/include/eunit.hrl").
  
  -export([do_diag_per_node/0, do_diag_per_node_binary/0,
           handle_diag/1,
           handle_sasl_logs/1, handle_sasl_logs/2,
           handle_diag_ale/1,
  
negative.code:            end,
      do_handle_per_node_just_diag(Resp, Node, Diag),
      handle_per_node_just_diag(Resp, Results).
  
  do_handle_per_node_just_diag(Resp, Node, Failed) when not is_list(Failed) ->
      write_chunk_format(Resp, "per_node_diag(~p) = ~p~n~n~n", [Node, Failed]);
  