1 files changed, 2 insertions, 1 deletions

diff --git a/src/process.c b/src/process.c
index 84d373ff37b..34966d35160 100644
--- a/src/process.c
+++ b/src/process.c
@@ -5139,6 +5139,7 @@ send_process (proc, buf, len, object)
   int rv;
   struct coding_system *coding;
   struct gcpro gcpro1;
+  SIGTYPE (*volatile old_sigpipe) ();
 
   GCPRO1 (object);
 
@@ -5256,7 +5257,6 @@ send_process (proc, buf, len, object)
       while (len > 0)
         {
           int this = len;
-          SIGTYPE (*old_sigpipe)();
 
           /* Decide how much data we can send in one batch.
              Long lines need to be split into multiple batches.  */
@@ -5399,6 +5399,7 @@ send_process (proc, buf, len, object)
 #endif /* not VMS */
   else
     {
+      signal (SIGPIPE, old_sigpipe);
 #ifndef VMS
       proc = process_sent_to;
       p = XPROCESS (proc);