anchor.diff:              %%     A <- element(3,erlang:system_info(allocator))]}.
               %% to dump data.
               {M,[{Alloc,_D}|_] = Allocs} when is_atom(Alloc) ->
  -                {M,[{{A,N},proplists:delete(versions,Props)} ||
  +                {M,[{{A,N},lists:sort(proplists:delete(versions,Props))} ||
                          {A,Instances} <- Allocs,
                          {_, N, Props} <- Instances]};
               %% We assume someone used recon_alloc:snapshot() to store this one
  -            Terms ->
  -                Terms
  +            {M,Allocs} ->
  +                {M,[{AN,lists:sort(proplists:delete(versions,Props))} ||
  +                       {AN, Props} <- Allocs]}
           end,
       put(recon_alloc_snapshot,Snapshot).
   
  
positive.code:     {_libc,_Vsn,Allocators,_Opts} = erlang:system_info(allocator),
      %% versions is deleted in order to allow the use of the orddict api,
      %% and never really having come across a case where it was useful to know.
      [{{A,N},proplists:delete(versions,Props)} ||
          A <- Allocators,
          {_,N,Props} <- erlang:system_info({allocator,A})].
  
  
negative.code: average_group([]) -> [];
  average_group([{Instance,Type1,N},{Instance,Type2,M} | Rest]) ->
      [{Instance,[{Type1,N},{Type2,M}]} | average_group(Rest)].
  
  %% Get the total carrier size
  carrier_size(Props, Keyword) ->
      Pos = key2pos(Keyword),
      SbcsProps = proplists:get_value(sbcs, Props),
      MbcsProps = proplists:get_value(mbcs, Props),
      Sbcs = element(Pos,lists:keyfind(carriers_size, 1, SbcsProps)),
      Mbcs = element(Pos,lists:keyfind(carriers_size, 1, MbcsProps)),
      Sbcs+Mbcs.
  
  %% Get the total block size
  block_size(Props, Keyword) ->
      Pos = key2pos(Keyword),
      SbcsProps = proplists:get_value(sbcs, Props),
      MbcsProps = proplists:get_value(mbcs, Props),
      Sbcs = element(Pos,lists:keyfind(blocks_size, 1, SbcsProps)),
      Mbcs = element(Pos,lists:keyfind(blocks_size, 1, MbcsProps)),
      Sbcs+Mbcs.
  
  %% Create a new snapshot
  snapshot_int() ->
  