anchor.diff:  terminate(_Reason, #state{sock=LSock, on_shutdown = {M,F,A}, label=Label}) ->
       {ok, {IPAddress, Port}} = inet:sockname(LSock),
       gen_tcp:close(LSock),
  -    error_logger:info_msg("stopped ~s on ~s:~p~n",
  -                          [Label, ntoab(IPAddress), Port]),
  +    ?ERROR("stopped ~s on ~s:~p~n",
  +           [Label, ntoab(IPAddress), Port]),
       apply(M, F, A ++ [IPAddress, Port]).
   
   code_change(_OldVsn, State, _Extra) ->
  
positive.code: %%
  
  -module(tcp_listener).
  
  -behaviour(gen_server).
  
  
negative.code:                           end,
                            lists:duplicate(ConcurrentAcceptorCount, dummy)),
              {ok, {LIPAddress, LPort}} = inet:sockname(LSock),
              ?INFO("started ~s on ~s:~p~n",
  				[Label, ntoab(LIPAddress), LPort]),
              apply(M, F, A ++ [IPAddress, Port]),
              {ok, #state{sock = LSock,
                          on_startup = OnStartup, on_shutdown = OnShutdown,
                          label = Label}};
          {error, Reason} ->
              ?ERROR("failed to start ~s on ~s:~p - ~p (~s)~n",
  				[Label, ntoab(IPAddress), Port,
  				 Reason, inet:format_error(Reason)]),
              {stop, {cannot_listen, IPAddress, Port, Reason}}
      end.
  
  