1 files changed, 6 insertions, 0 deletions
diff --git a/src/callproc.c b/src/callproc.c
index 2078c4411fd..3a725b80a0a 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -471,6 +471,12 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)  */)
   else
     {
 #ifndef MSDOS
+      errno = 0;
+      if (pipe (fd) == -1)
+	{
+	  emacs_close (filefd);
+	  report_file_error ("Creating process pipe", Qnil);
+	}
 #endif
 #if 0
       /* Replaced by close_process_descs */