diff --git a/lib/chibi/net/server.scm b/lib/chibi/net/server.scm
index 663fdc30..6ec40ca1 100644
--- a/lib/chibi/net/server.scm
+++ b/lib/chibi/net/server.scm
@@ -8,7 +8,8 @@
                     ((fileno? listener-or-addr)
                      listener-or-addr)
                     ((integer? listener-or-addr)
-                     (make-listener-socket (get-address-info "localhost" 5556)))
+                     (make-listener-socket
+                      (get-address-info "localhost" listener-or-addr)))
                     (else
                      (make-listener-socket listener-or-addr))))
          (max-requests (if (pair? o) (car o) default-max-requests))