anchor.diff:  
   format([OwnReport,LinkReport], Encoding, Depth) ->
       Extra = {Encoding,Depth},
  -    OwnFormat = format_report(OwnReport, Extra),
  -    LinkFormat = format_report(LinkReport, Extra),
  +    MyIndent = "    ",
  +    OwnFormat = format_report(OwnReport, MyIndent, Extra),
  +    LinkFormat = format_link_report(LinkReport, MyIndent, Extra),
       Str = io_lib:format("  crasher:~n~ts  neighbours:~n~ts",
                           [OwnFormat, LinkFormat]),
       lists:flatten(Str).
   
  -format_report(Rep, Extra) when is_list(Rep) ->
  -    format_rep(Rep, Extra);
  -format_report(Rep, {Enc,_}) ->
  -    io_lib:format("~"++modifier(Enc)++"p~n", [Rep]).
  -
  -format_rep([{initial_call,InitialCall}|Rep], {_Enc,Depth}=Extra) ->
  -    [format_mfa(InitialCall, Depth)|format_rep(Rep, Extra)];
  -format_rep([{error_info,{Class,Reason,StackTrace}}|Rep], Extra) ->
  -    [format_exception(Class, Reason, StackTrace, Extra)|format_rep(Rep, Extra)];
  -format_rep([{Tag,Data}|Rep], Extra) ->
  -    [format_tag(Tag, Data, Extra)|format_rep(Rep, Extra)];
  -format_rep(_, _Extra) ->
  +format_link_report([Link|Reps], Indent, Extra) ->
  +    Rep = case Link of
  +              {neighbour,Rep0} -> Rep0;
  +              _ -> Link
  +          end,
  +    LinkIndent = ["  ",Indent],
  +    [Indent,"neighbour:\n",format_report(Rep, LinkIndent, Extra)|
  +     format_link_report(Reps, Indent, Extra)];
  +format_link_report([], _, _) ->
  +    [].
  +
  +format_report(Rep, Indent, Extra) when is_list(Rep) ->
  +    format_rep(Rep, Indent, Extra);
  +format_report(Rep, Indent, {Enc,Depth}) ->
  +    io_lib:format("~s~"++modifier(Enc)++"P~n", [Indent, Rep, Depth]).
  +
  +format_rep([{initial_call,InitialCall}|Rep], Indent, Extra) ->
  +    [format_mfa(Indent, InitialCall, Extra)|format_rep(Rep, Indent, Extra)];
  +format_rep([{error_info,{Class,Reason,StackTrace}}|Rep], Indent, Extra) ->
  +    [format_exception(Class, Reason, StackTrace, Extra)|
  +     format_rep(Rep, Indent, Extra)];
  +format_rep([{Tag,Data}|Rep], Indent, Extra) ->
  +    [format_tag(Indent, Tag, Data, Extra)|format_rep(Rep, Indent, Extra)];
  +format_rep(_, _, _Extra) ->
       [].
   
   format_exception(Class, Reason, StackTrace, {Enc,_}=Extra) ->
  
positive.code:     [EI, lib:format_exception(1+length(EI), Class, Reason, 
                                StackTrace, StackFun, PF, Enc), "\n"].
  
  format_mfa({M,F,Args}=StartF, Depth) ->
      try
  	A = length(Args),
  	["    initial call: ",atom_to_list(M),$:,atom_to_list(F),$/,
  	 integer_to_list(A),"\n"]
      catch
  	error:_ ->
  	    format_tag(initial_call, StartF, Depth)
      end.
  
  pp_fun({Enc,Depth}) ->
  
negative.code: make_neighbour_reports1([]) ->
    [].
    
  %% Do not include messages or process dictionary, even if
  %% error_logger_format_depth is unlimited.
  make_neighbour_report(Pid) ->
    [{pid, Pid},
     get_process_info(Pid, registered_name),          
     get_initial_call(Pid),
     get_process_info(Pid, current_function),
     get_ancestors(Pid),
     get_process_info(Pid, message_queue_len),
     %% get_messages(Pid),
     get_process_info(Pid, links),
     %% get_cleaned_dictionary(Pid),
     get_process_info(Pid, trap_exit),
     get_process_info(Pid, status),
     get_process_info(Pid, heap_size),
  