1 files changed, 12 insertions, 6 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm
index 919dc936..6ab9a2d1 100644
--- a/module/entry-points/server.scm
+++ b/module/entry-points/server.scm
@@ -222,9 +222,15 @@
           addr port
           (getpid) (getcwd))
 
-  (run-server (make-make-routes)
-              'http
-              `(family: ,family
-                        port: ,port
-                        host: ,addr)
-              0))
+  (catch 'system-error
+    (lambda ()
+     (run-server (make-make-routes)
+                 'http
+                 `(family: ,family
+                           port: ,port
+                           host: ,addr)
+                 0))
+    ;; probably address already in use
+    (lambda (err proc fmt args errno)
+      (format (current-error-port) "~a: ~?~%"
+              proc fmt args))))