anchor.diff:  handle_call(request_connection, _From, State) ->
     case State#state.connections of
   	[] -> 
  -		{ok, C} = pgsql:connect("localhost", "chaosbay", "chaosbay", [{database, "chaosbaydb"}]),
  +		{ok, C} = pgsql:connect("localhost", "chaosbay", "chaosbay",
  +					[{database, "chaosbaydb"},
  +					 {timeout, ?TIMEOUT}
  +					]),
   		NState = State,
   		C;
   	[C|H] ->
  
positive.code:   gen_server:start_link({local, ?SERVER}, ?MODULE, [], []).
  
  request_connection() ->
    gen_server:call(?SERVER, request_connection).
  
  release_connection(C) ->
    gen_server:call(?SERVER, {release_connection, C}).
  
  %%--------------------------------------------------------------------
  %% Function: init(Args) -> {ok, State} |
  
negative.code: -define(DB_DEFAULT_NAME, "chaosbaydb").
  -define(DB_DEFAULT_USER, "chaosbay").
  -define(DB_DEFAULT_PASS, "chaosbay").
  -define(TIMEOUT, (120 * 1000)).
  
  %%====================================================================
  %% API
  