p.s. shepherd 1.0.2
./modules/shepherd/comm.scm (define (open-server-socket file-name) "Open a socket at FILE-NAME, and listen for connections there." (with-fluids ((%default-port-encoding "UTF-8")) (let ((sock (socket PF_UNIX(logior SOCK_STREAM SOCK_NONBLOCK SOCK_CLOEXEC)
0)) (address (make-socket-address AF_UNIX file-name)))(catch-system-error (delete-file file-name)) ; <----- Please don't.
(bind sock address) (listen sock 10) sock)))