anchor.diff:  
   table_init_fun(SenderPid, Storage) ->
       fun(read) ->
  +	    % We want to store subscribed mnesia table events received during
  +	    % table copying for later processing to not let receiver message queue
  +	    % to grow too much (which in consequence would slow down the whole copying process)
  +	    SubscrCache = ets:new(subscr_cache, [private, ordered_set]),
  +	    put(mnesia_table_receiver_subscr_cache, SubscrCache),
   	    Receiver = self(),
   	    SenderPid ! {Receiver, more},
   	    get_data(SenderPid, Receiver, Storage);
  
positive.code: 
  finish_copy(Storage,Tab,Cs,SenderPid,DatBin,OrigTabRec) ->
      TabRef = {Storage, Tab},
      subscr_receiver(TabRef, Cs#cstruct.record_name),
      case handle_last(TabRef, Cs#cstruct.type, DatBin) of
  	ok ->
  	    mnesia_index:init_index(Tab, Storage),
  
negative.code: 		    handle_event(TabRef, Op, Val);
  		true ->
  		    handle_event(TabRef, Op, setelement(1, Val, RecName))
  	    end;
  
  	{mnesia_table_event, {Op, Val, _Tid}} when element(1, Val) =:= schema ->
  	    %% clear_table is faked via two schema events
  