diff --git a/src/process.c b/src/process.c
index bdbdefabb64..bc2ac451c9d 100644
--- a/src/process.c
+++ b/src/process.c
@@ -3185,6 +3185,8 @@ connect_network_socket (Lisp_Object proc, Lisp_Object addrinfos,
 	      xerrno = errno;
 	      emacs_close (s);
 	      s = -1;
+	      if (socket_to_use < 0)
+		break;
 	      continue;
 	    }
 	}
@@ -3312,6 +3314,8 @@ connect_network_socket (Lisp_Object proc, Lisp_Object addrinfos,
       specpdl_ptr = specpdl + count1;
       emacs_close (s);
       s = -1;
+      if (socket_to_use < 0)
+	break;
 
 #ifdef WINDOWSNT
       if (xerrno == EINTR)