anchor.diff:  
   start() ->
       mnesia:start(),
  -    mnesia:change_config(extra_db_nodes, [server_node()]),
  -    logger:start("sipd.log"),
  +    mnesia:change_config(extra_db_nodes, server_nodes()),
  +    {Message, Args} = case mnesia:wait_for_tables([user], infinity) of
  +			  ok ->
  +			      {"proxy started, all tables found~n", []};
  +			  {timeout, BadTabList} ->
  +			      {"proxy started, tables not reachable right now: ~p~n", BadTabList}
  +		      end,
  +    logger:start(),
       {ok, Socket} = gen_udp:open(5060, [{reuseaddr, true}]),
  -    logger:log(normal, "proxy started"),
  +    logger:log(normal, Message, Args),
       recvloop(Socket).
   
   recvloop(Socket) ->
  
positive.code: -module(pstnproxy).
  -export([start/0, start/2, process/2]).
  
  server_node() -> 'incomingproxy@granit.e.kth.se'.
  
  start(normal, Args) ->
      Pid = spawn(pstnproxy, start, []),
  
negative.code:     end.
  
  classdefs() ->
      case application:get_env(classdefs) of
  	{ok, Defs} ->
  	    Defs;
  	undefined ->
  	    [{"", unknown}]
      end.
  
  request(Method, {User, Pass, "sip-pstn.kth.se", Port, Parameters}, Header, Body, Socket) ->
      logger:log(normal, Method),
  