diff --git a/src/ChangeLog b/src/ChangeLog
index 0ad3ba97e0f..a6caa49221b 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-01-13  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* callproc.c: (Fcall_process): Fix previous change.
+
 2008-01-13  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* (unexsunos4): Remove file, system not supported anymore.
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 */