1 files changed, 1 insertions, 0 deletions

diff --git a/src/callproc.c b/src/callproc.c
index c76c1fd2bcb..5d743d30696 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -633,6 +633,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
   struct gcpro gcpro1;
   Lisp_Object filename_string;
   register Lisp_Object start, end;
+  int count = specpdl_ptr - specpdl;
 #ifdef DOS_NT
   char *tempfile;
   char *outf = '\0';