anchor.diff:  store_peer(IP, Port, InfoHash, Pid) ->
       F = fun() ->
   		{atomic, Ref} = create_peer_info(),
  -		mnesia:write(#peer_map { pid = Pid,
  +		mnesia:write(peer_map,
  +			     #peer_map { pid = Pid,
   					 ip = IP,
   					 port = Port,
  -					 info_hash = InfoHash}),
  -		mnesia:write(#peer { map = Pid,
  -				     info = Ref })
  +					 info_hash = InfoHash},
  +			    write),
  +		mnesia:write(peer,
  +			     #peer { map = Pid,
  +				     info = Ref },
  +			    write)
   	end,
       mnesia:transaction(F).
   
  
positive.code: 		case mnesia:read(info_hash, InfoHash, write) of
  		    [IH] ->
  			New = IH#info_hash{state = State},
  			mnesia:write(New),
  			ok;
  		    [] ->
  			not_found
  
negative.code: %%--------------------------------------------------------------------
  store_info_hash(InfoHash, StorerPid) ->
      F = fun() ->
  		mnesia:write(info_hash,
  			     #info_hash { info_hash = InfoHash,
  					  storer_pid = StorerPid,
  					  state = unknown },
  			    write)
  	end,
      mnesia:transaction(F).
  
  