Btw, seems like unassigning before assigning helps :)

TcpService >> start
    self verifyOkToStart ifFalse: [^self].
    self unassignPort.                             "This line is new!"
    self assignPort.
    [super start] on: Error do:
        [ :ex | self unassignPort. ex pass]

Though I'm not sure it will not have some bad consequences in some other place...

--
Dennis Schetinin