anchor.diff:  -define(POOL_TIMEOUT, 1000).
   
   -record(state, {
  -    orig_pools  :: dict(),
  -    curr_pools  :: dict()
  +    orig_pools      :: dict(),
  +    curr_pools      :: dict(),
  +    default_app     :: atom()
   }).
   
   %%%===================================================================
  
positive.code:     case application:get_application() of
          {ok, AppName} ->
              get_pool(AppName);
          _ ->
              {error, no_pools_found}
      end.
  
  get_pool(AppName)->
  
negative.code: 
  init([]) ->
      {ok, Config} = application:get_env(riak_pool, pools),
      DefaultApp = case application:get_env(riak_pool, default_app) of
          {ok, _DefaultApp} ->
              _DefaultApp;
          undefined ->
              undefined
      end,
      
      Pools = lists:foldl(
          fun ({AppName, PoolName}, Acc) ->
              dict:append(AppName, PoolName, Acc)
  