(tcp-server-prepare-hard-close-procedure (lambda (c)
                                                (synch mtx (delete (current-thread) mailboxes))
                                                (tcp-abandon-port c)))