1 files changed, 6 insertions, 1 deletions

diff --git a/src/process.c b/src/process.c
index 42a625b7e55..7c63964aee6 100644
--- a/src/process.c
+++ b/src/process.c
@@ -2321,7 +2321,12 @@ set_socket_option (int s, Lisp_Object opt, Lisp_Object val)
     }
 
   if (ret < 0)
-    report_file_error ("Cannot set network option", list2 (opt, val));
+    {
+      int setsockopt_errno = errno;
+      report_file_errno ("Cannot set network option", list2 (opt, val),
+                         setsockopt_errno);
+    }
+
   return (1 << sopt->optbit);
 }