diff --git a/src/process.c b/src/process.c
index a4845c99d58..48c960f9a43 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1897,6 +1897,7 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\
       count1 = specpdl_ptr - specpdl;
       
       emacs_close (s);
+      s = -1;
     }
 
   freeaddrinfo (res);