anchor.diff:      end.
   
   beam_stat(Stat, Sample, Default) ->
  -    case proc_stat(<<"beam.smp">>, Stat, Sample) of
  -        undefined ->
  -            case proc_stat(<<"erl">>, Stat, Sample) of
  -                undefined ->
  -                    proc_stat(<<"beam">>, Stat, Sample, Default);
  -                V ->
  -                    V
  -            end;
  -        V ->
  -            V
  -    end.
  +    proc_stat(?MAIN_BEAM_NAME, Stat, Sample, Default).
   
   proc_stat(Name, Stat, Sample) ->
       proc_stat(Name, Stat, Sample, undefined).
  
positive.code:                                                 {proc_stat_name(Name, page_faults), PageFaults}]),
  
              Acc1 = {NewSample1 ++ NewSampleAcc, PrevSample1},
              do_unpack_processes_v2(Rest, Acc1)
      end.
  
  extract_string(Bin) ->
  
negative.code:       PageFaults:64/native,
        Rest/binary>> = Bin,
  
      RawName = extract_string(Name0),
      case RawName of
          <<>> ->
              Acc;
          _ ->
              Name = case Pid =:= BeamPid of
                         true ->
                             ?MAIN_BEAM_NAME;
                         false ->
                             RawName
                     end,
  
              NewSample0 =
                  [{proc_stat_name(Name, mem_size), MemSize},
                   {proc_stat_name(Name, mem_resident), MemResident},
  