(define (make-server-socket type uri #!key (socket-options  '((hwm . 2))))
  (doto (make-socket type)
        (socket-set-options-from-alist! socket-options)
        (bind-socket uri)))