anchor.diff:          {[],[],[]} ->
               ok;
           {["WARNING: This process has an incomplete heap."++_],[],[]}
  -          when IncompAllowed ->
  +	when IncompAllowed ->
               ok;  % native libs, literals might not be included in dump
           _ when TruncAllowed ->
               ok; % truncated dump
           TWs ->
  -            ct:fail({unexpected_warning,Pid,TWs})
  +	    ?P("lookat_all_pids -> unexpected warning"
  +	       "~n   Pid:           ~s"
  +	       "~n   IncompAllowed: ~p"
  +	       "~n   TruncAllowed:  ~p"
  +	       "~n   ~p", [Pid, IncompAllowed, TruncAllowed, TWs]),
  +            ct:fail({unexpected_warning, Pid, TWs, IncompAllowed, TruncAllowed})
       end,
       lookat_all_pids(Procs,TruncAllowed,IncompAllowed).
   
  
positive.code: %%%-----------------------------------------------------------------
  %%% General check of what is displayed for a dump
  browse_file(File) ->
      io:format("~nBrowsing file: ~s",[File]),
  
      ok = start_backend(File),
  
  
negative.code:     "";
  compat_rel(Rel) ->
      lists:concat(["+R",Rel," "]).
  
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  %% f(F, A) ->
  %%     lists:flatten(io_lib:format(F, A)).
  
  formated_timestamp() ->
      format_timestamp(os:timestamp()).
  
  format_timestamp({_N1, _N2, N3} = TS) ->
      {_Date, Time}   = calendar:now_to_local_time(TS),
      {Hour, Min, Sec} = Time,
      FormatTS = io_lib:format("~.2.0w:~.2.0w:~.2.0w.~.3.0w",
                               [Hour, Min, Sec, N3 div 1000]),  
      lists:flatten(FormatTS).
  
  %% print(F) ->
  %%     print(F, []).
  
  print(F, A) ->
      io:format("~s ~p " ++ F ++ "~n", [formated_timestamp(), self() | A]).
  
  