(Fcall_process_region): gcpro filename_string.

1 files changed, 5 insertions, 2 deletions

diff --git a/src/callproc.c b/src/callproc.c
index 4f66b5afc4a..990a48c4db9 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -486,7 +486,9 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
      int nargs;
      register Lisp_Object *args;
 {
-  register Lisp_Object filename_string, start, end;
+  struct gcpro gcpro1;
+  Lisp_Object filename_string;
+  register Lisp_Object start, end;
 #ifdef MSDOS
   char *tempfile;
 #else
@@ -519,6 +521,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
   mktemp (tempfile);
 
   filename_string = build_string (tempfile);
+  GCPRO1 (filename_string);
   start = args[0];
   end = args[1];
 #ifdef MSDOS
@@ -536,7 +539,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
 
   args[3] = filename_string;
 
-  return unbind_to (count, Fcall_process (nargs - 2, args + 2));
+  RETURN_UNGCPRO (unbind_to (count, Fcall_process (nargs - 2, args + 2)));
 }
 
 #ifndef VMS /* VMS version is in vmsproc.c.  */