OS X: как смотреть события чтения сокетов с помощью NSRunLoop?

Я пишу приложение Cocoa. В приложении есть сокет, и всякий раз, когда сокет становится доступным для чтения, я хочу читать данные из сокета, обрабатывать данные и соответствующим образом обновлять пользовательский интерфейс. Я хочу интегрировать проверку события чтения в основной цикл, т.е. я хочу присоединить сокет к основному циклу и заставить основной цикл вызывать обратный вызов всякий раз, когда этот сокет становится доступным для чтения.

Я написал тестовое приложение, но оно почему-то не работает:

#include <stdio.h>
#include <Foundation/NSAutoReleasePool.h>
#include <Foundation/NSRunLoop.h>
#include <Foundation/NSPort.h>

@interface MyDelegate : NSObject <NSPortDelegate> {
}
- (void)handlePortMessage:(NSPortMessage *)portMessage;
@end

@implementation MyDelegate
- (void)handlePortMessage:(NSPortMessage *)portMessage {
    printf("Haiz\n");
}
@end

int
main() {
    NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];
    NSSocketPort *server = [NSSocketPort alloc];
    MyDelegate *foo = [MyDelegate alloc];
    [server initWithTCPPort: 1234];
    [server setDelegate: foo];
    [[NSRunLoop mainRunLoop] addPort: server forMode: NSDefaultRunLoopMode];
    [[NSRunLoop mainRunLoop] run];
    [pool release];
    return 0;
}

Предполагается, что приложение прослушивает локальный порт 1234, и всякий раз, когда кто-то подключается к серверу или отправляет данные на сервер, приложение должно печатать «Haiz» на консоли. Однако приложение вообще ничего не делает. Сокет создан, и я могу подключиться по телнету к порту 1234, но приложение ничего не выводит на консоль.

Что я делаю неправильно?