anchor.diff:          true ->
               {noreply, State#state{pool=Pool ++ [Conn]}};
           false ->
  -            %% Death of the process will have triggered handle_info(#'DOWN'{})
  +            %% process death will have triggered handle_info(#'DOWN'{})
               {noreply, State}
       end;
   handle_cast(_Msg, State) ->
       {noreply, State}.
   
  -handle_info(#'DOWN'{id=DownPid}, #state{openmod=ConnMod, pool=Pool}=State) ->
  +handle_info(#'DOWN'{id=DownPid},
  +            #state{openmod=ConnMod, pool=Pool}=State) ->
       %% Create a new pid to replace the downed one
       Pool1 = lists:delete(DownPid, Pool) ++ [init_conn(ConnMod)],
       {noreply, State#state{pool=Pool1}};
  
positive.code:             R
      end.
  
  checkin(Name, Conn) ->
      gen_server:cast(Name, {checkin, Conn}).
  
  current_count(Name) ->
      gen_server:call(Name, current_count, infinity).
  
  
negative.code: 
  exit_test() ->
      ConnCount = 5,
      {ok, Pool} = start_link(sock_pool_ut, {?MODULE, ?MODULE},
                              fun() -> ConnCount end),
      try
          %% Lazy evaluation - does not open pool until first use
          ?assertEqual(0, ?MODULE:current_count(sock_pool_ut)),
  