anchor.diff:      mnesia:transaction(Fun).
   
   create_call() ->
  -    mnesia:create_table(call, [{attributes, record_info(fields, call)}]).
  +    mnesia:create_table(call, [{attributes, record_info(fields, call)},
  +    			       {ram_copies, [node()]}
  +    			      ]).
   
   insert_call(Callid, Type, Headers, Data) ->
       insert_record(#call{callid = Callid, type = Type, headers = Headers,
  
positive.code: -module(database_call).
  -export([create_call/0, insert_call/4, get_call/1, list_calls/0,
  	 insert_call_unique/4, set_data/2]).
  
  -include("database_call.hrl").
  
  
negative.code: 	    end,
      mnesia:transaction(F).
  
  get_call_type(Call, Type) ->
  	F = fun() ->
  		    Q = query
  			    [{E.headers, E.data} || E <- table(call),
  						    E.callid = Call,
  						    E.type = Type]
  			end,
  		    mnemosyne:eval(Q)
  	    end,
      mnesia:transaction(F).
  
  set_data(CallID, Data) ->
      F = fun() ->
  		Q = query
  