diff --git a/lib/chibi/net.scm b/lib/chibi/net.scm
index 0cbc8d88..4eed01a4 100644
--- a/lib/chibi/net.scm
+++ b/lib/chibi/net.scm
@@ -30,7 +30,7 @@
         (let ((sock (socket (address-info-family addr)
                             (address-info-socket-type addr)
                             (address-info-protocol addr))))
-          (if (negative? sock)
+          (if (not (fileno? sock))
               (lp (address-info-next addr))
               (cond
                ((negative?