diff --git a/src/process.c b/src/process.c
index 9ca3e594..30a200f 100644
--- a/src/process.c
+++ b/src/process.c
@@ -3135,6 +3135,7 @@ connect_network_socket (Lisp_Object proc, Lisp_Object addrinfos,
   count1 = SPECPDL_INDEX ();
   s = -1;
 
+  int addrinfo_count = 0;
   while (!NILP (addrinfos))
     {
       Lisp_Object addrinfo = XCAR (addrinfos);
@@ -3142,6 +3143,8 @@ connect_network_socket (Lisp_Object proc, Lisp_Object addrinfos,
       int protocol = XINT (XCAR (addrinfo));
       Lisp_Object ip_address = XCDR (addrinfo);
 
+      message ("Trying addrinfo structure %d", ++addrinfo_count);
+
 #ifdef WINDOWSNT
     retry_connect:
 #endif