anchor.diff:      ServerName = name_to_server_name(Name),
       CurrentChildren = current_children(Name),
       lists:foreach(
  -      fun({mc_accept, undefined, _, _}) ->
  +      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}) ->
  +         ({{mc_accept, CurrArgs}, _Pid, _, _}) ->
                 WantSpec = child_spec_accept(Name, PoolConfig),
                 {_, {_, _, WantArgs}, _, _, _, _} = WantSpec,
                 case CurrArgs =:= WantArgs of
  
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:     {ok, {{rest_for_one, 3, 10}, Children}}.
  
  child_spec_pool(Name, _PoolConfig) ->
      {{mc_pool, Name}, {mc_pool, start_link, [Name]},
       permanent, 10, worker, []}.
  
  child_spec_accept(Name, PoolConfig) ->
  