From VisualWorks® NonCommercial, Release 7 of June 14, 2002 on December 5, 2002 at 6:33:20 am LTDHttpServer VisualWave VisualWave.TinyHttpServer false none activeSemaphore Wave-Server Wave-Server VisualWave.LTDHttpServer initialize-release initialize super initialize. activeSemaphore := Semaphore new. activeSemaphore initSignalsTo: self maxConnections. ^self VisualWave.LTDHttpServer accessing maxConnections ^100 VisualWave.LTDHttpServer private handleConnection: aSocket activeSemaphore wait. [[service serve: aSocket] ensure: [aSocket close. activeSemaphore signal]. "Processor timeSliceYield"] forkAt: self defaultServiceProcessPriority.