anchor.diff:                        supervisor:start_child(ServerName, WantSpec),
                         ok
                 end;
  -         ({mc_pool, Pid, _, _}) ->
  +         ({{mc_pool, _}, Pid, _, _}) ->
                 mc_pool:reconfig(Pid, Name, PoolConfig),
                 ok;
            (_) -> ok
  
positive.code:     ServerName = name_to_server_name(Name),
      CurrentChildren = current_children(Name),
      lists:foreach(
        fun({mc_accept, undefined, _, _}) ->
                ns_log:log(?MODULE, 0003, "reconfig accept start ~p", [Name]),
                supervisor:terminate_child(ServerName, mc_accept),
                supervisor:delete_child(ServerName, mc_accept),
                supervisor:start_child(ServerName,
                                       child_spec_accept(Name, PoolConfig)),
                ok;
           ({mc_accept, _Pid, _, CurrArgs}) ->
                WantSpec = child_spec_accept(Name, PoolConfig),
                {_, {_, _, WantArgs}, _, _, _, _} = WantSpec,
                case CurrArgs =:= WantArgs of
  
negative.code:     Env = {mc_server_detect,
             mc_server_detect,
             {mc_pool, Name}},
      Args = [PortNum, AddrStr, Env],
      {{mc_accept, Args}, {mc_accept, start_link, Args},
       temporary, 10, worker, []}.
  
  reconfig(Name) ->
  