1.1 --- a/TCP/TCPListener.m	Sat May 16 14:10:15 2009 -0700
     1.2 +++ b/TCP/TCPListener.m	Sun May 24 15:03:39 2009 -0700
     1.3 @@ -34,9 +34,19 @@
     1.4  @implementation TCPListener
     1.5  
     1.6  
     1.7 +- (id) init
     1.8 +{
     1.9 +    self = [super init];
    1.10 +    if (self != nil) {
    1.11 +        _connectionClass = [TCPConnection class];
    1.12 +    }
    1.13 +    return self;
    1.14 +}
    1.15 +
    1.16 +
    1.17  - (id) initWithPort: (UInt16)port
    1.18  {
    1.19 -    self = [super init];
    1.20 +    self = [self init];
    1.21      if (self != nil) {
    1.22          _port = port;
    1.23      }