anchor.diff:  		       {value,{_,BlSz,_,_}} = lists:keysearch(blocks_size, 1, L),
   		       {Bl0+Bl,BlSz0+BlSz}
   	       end, {0,0}, MSBCS)
  -     end}.
  -
  -verify_etsmem(MemInfo) ->
  +     end},
  +     {Mem,AllTabs}.
  +
  +verify_etsmem({MemInfo,AllTabs}) ->
       wait_for_test_procs(),
       case etsmem() of
  -	MemInfo ->
  +	{MemInfo,_} ->
   	    io:format("Ets mem info: ~p", [MemInfo]),
   	    case MemInfo of
   		{ErlMem,EtsAlloc} when ErlMem == notsup; EtsAlloc == undefined ->
  
positive.code:     my_tab_to_list(Ts,ets:next(Ts,Key),[ets:lookup(Ts, Key)| Acc]).
  
  etsmem() ->
      {try erlang:memory(ets) catch error:notsup -> notsup end,
       case erlang:system_info({allocator,ets_alloc}) of
  	 false -> undefined;
  
negative.code: 		_ ->
  		    ok
  	    end;
  	{MemInfo2, AllTabs2} ->
  	    io:format("Expected: ~p", [MemInfo]),
  	    io:format("Actual:   ~p", [MemInfo2]),
  	    io:format("Changed tables before: ~p\n",[AllTabs -- AllTabs2]),
  	    io:format("Changed tables after: ~p\n", [AllTabs2 -- AllTabs]),
  	    ?t:fail()
      end.
  
  
  start_loopers(N, Prio, Fun, State) ->
      lists:map(fun (_) ->
  