start
    | queue connection |

    self running: true.
    queue := ConnectionQueue portNumber: 1024 queueLength: 50.

    [
    [self running] whileTrue:
        [
            connection := queue getConnectionOrNil.
            connection ifNotNil: [self new serve: connection].
            Processor yield.
        ]
    ] fork.