anchor.diff:  dump_links([]) ->
   	ok;
   dump_links([Head|Tail]) when is_record(Head, slink) ->
  -	#slink{name = Name, sls = Sls, state = State} = Head,
  -	io:format("  Link ~p, SLS: ~p, State: ~p~n",
  -		  [Name, Sls, State]),
  +	#slink{name = Name, sls = Sls, state = State, user_pid = Pid} = Head,
  +	io:format("  Link ~p, SLS: ~p, Pid: ~p, State: ~p~n",
  +		  [Name, Sls, Pid, State]),
   	dump_links(Tail).
   
  +dump_services([]) ->
  +	ok;
  +dump_services([Head|Tail]) when is_record(Head, service) ->
  +	#service{name = Name, user_pid = Pid, service_nr = Nr} = Head,
  +	io:format("Service ~p bound to ~p (Pid ~p)~n", [Nr, Name, Pid]),
  +	dump_services(Tail).
   
   % server side code
   
  
positive.code: -export([bind_service/2, unbind_service/1]).
  
  -export([get_pid_for_link/2, get_pid_for_dpc_sls/2, mtp3_tx/1,
  	 get_linkset_for_dpc/1, dump_all_links/0]).
  
  -record(slink, {
  	key,		% {linkset_name, sls}
  
negative.code: 						    request, Mtp3))
  	end.
  
  dump() ->
  	List = ets:tab2list(ss7_linksets),
  	dump_linksets(List),
  	SList = ets:tab2list(ss7_services),
  	dump_services(SList).
  
  dump_linksets([]) ->
  	ok;
  