anchor.diff:  		    {Storage, Tab};
   		Else ->
   		    Else
  -	    end
  +	    end;
  +        element(1, Storage) == ext ->
  +            {_, Alias, Mod} = Storage,
  +            case mnesia_monitor:unsafe_create_external(Tab, Alias, Mod, Cs) of
  +                ok ->
  +                    {Storage, Tab};
  +                Else ->
  +                    Else
  +            end
       end.
   
   tab_receiver(Node, Tab, Storage, Cs, OrigTabRec) ->
  
positive.code: 			true = lists:member(Node, Active),
  			{SenderPid, TabSize, DetsData} =
  			    start_remote_sender(Node,Tab,Storage),
  			Init = table_init_fun(SenderPid),
  			Args = [self(),Tab,Storage,Cs,SenderPid,
  				TabSize,DetsData,Init],
  			Pid = spawn_link(?MODULE, spawned_receiver, Args),
  
negative.code: 		Node ->
  		    {copier_done, Node};
  		_ ->
  		    get_data(Pid, TabRec, Storage)
  	    end;
  	{'EXIT', Pid, Reason} ->
  	    handle_exit(Pid, Reason),
  	    get_data(Pid, TabRec, Storage)
      end.
  
  maybe_reply(_, _, {ext, _, _}) ->
      ignore;
  maybe_reply(Pid, Msg, _) ->
      Pid ! Msg.
  
  ext_init_table(Alias, Mod, Tab, Fun, State, Sender) ->
      ok = ext_load_table(Mod, Alias, Tab, {net_load, node(Sender)}),
      ext_init_table(read, Alias, Mod, Tab, Fun, State, Sender).
  
  ext_load_table(Mod, Alias, Tab, Reason) ->
      CS = val({Tab, cstruct}),
      Mod:load_table(Alias, Tab, Reason, mnesia_schema:cs2list(CS)).
  
  
  ext_init_table(Action, Alias, Mod, Tab, Fun, State, Sender) ->
      case Fun(Action) of
  	{copier_done, Node} ->
  	    verbose("Receiver of table ~p crashed on ~p (more)~n", [Tab, Node]),
  	    down(Tab, {ext,Alias,Mod});
  	{Data, NewFun} ->
  	    case Mod:receive_data(Data, Alias, Tab, Sender, State) of
  		{more, NewState} ->
  		    ext_init_table({read, more}, Alias, Mod,
  				   Tab, NewFun, NewState, Sender);
  		{{more,Msg}, NewState} ->
  		    ext_init_table({read, Msg}, Alias, Mod,
  				   Tab, NewFun, NewState, Sender)
  	    end;
  	end_of_input ->
  	    Mod:receive_done(Alias, Tab, Sender, State),
  	    ok = Fun(close)
      end.
  
  init_table(Tab, {ext,Alias,Mod}, Fun, State, Sender) ->
      ext_init_table(Alias, Mod, Tab, Fun, State, Sender);
  init_table(Tab, disc_only_copies, Fun, DetsInfo,Sender) ->
      ErtsVer = erlang:system_info(version),
      case DetsInfo of
  