anchor.diff:            loop([Node],A);
           true ->
             loop([],A)
  -      end
  +      end;
  +    {'EXIT', Pid, _Reason} -> 
  +      FilterFun = fun({_Node,MPid}) -> MPid /= Pid end,
  +      loop([],lists:filter(FilterFun, A))
     end;
   loop(X,A) -> 
     receive 
  -    {add, I} ->
  +    {add, {Node, Proc}} when is_pid(Proc)->
  +      erlang:link(Proc),
  +      I = {Node, Proc},
         loop([I|X], [I|A]);
       {remove, I} -> 
         loop(lists:delete(I,X), lists:delete(I,A));
  
positive.code: 
  %% Server manipulation
  start() -> 
    global:register_name(?MODULE, spawn(fun() -> rails_connection_pool:loop([],[]) end)).
  
  add(Rsrc) ->
    global:send(?MODULE, {add, Rsrc}),
    ok.
  
  remove(Rsrc) ->
  
negative.code: 
  loop([],A) ->
    receive
      {add, {Node, Proc}} when is_pid(Proc) ->
        erlang:link(Proc),
        loop([{Node,Proc}],[{Node,Proc}|A]);
      {list, Pid} ->
        Pid ! {nodes, []},
        loop([],A);
  