anchor.diff:      {ok, {{rest_for_one, 3, 10}, Children}}.
   
   child_spec_pool(Name, _PoolConfig) ->
  -    {mc_pool, {mc_pool, start_link, [Name]},
  +    {{mc_pool, Name}, {mc_pool, start_link, [Name]},
        permanent, 10, worker, []}.
   
   child_spec_accept(Name, PoolConfig) ->
  
positive.code:     Env = {mc_server_detect,
             mc_server_detect,
             {mc_pool, Name}},
      {mc_accept, {mc_accept, start_link, [PortNum, AddrStr, Env]},
       temporary, 10, worker, []}.
  
  reconfig(Name) ->
  
negative.code:                       supervisor:start_child(ServerName, WantSpec),
                        ok
                end;
           ({{mc_pool, _}, Pid, _, _}) ->
                mc_pool:reconfig(Pid, Name, PoolConfig),
                ok;
           (_) -> ok
  