[Help-smalltalk] TCP Server Socket issue

[Holger Hans Peter Freyther]

Hi,

I am in a train and hope you excuse my laziness. I have selector like this

listen [
       | con |
        socket := Sockets.ServerSocket
                    port: port
                    bindTo: (Sockets.SocketAddress byName: addr).

        [true] whileTrue: [
            socket waitForConnection.
            con := socket accept.
            con close.
        ]
]

and this is silently on the GST shell when I CTRL+C and listen again. So the
old ServerSocket is still around when I create the new one. I would like to
either have an exception (e.g. when the bind(2) is failing) or it to magically
work (how would it)?

Is it worth to look into the underlying issue?