X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/70da46c31cfe29505f9e2cb6f3ef44dc260b3898..5883787cd6e7b35636ff9928c2c21022906bb8da:/src/macros.c

diff --git a/src/macros.c b/src/macros.c
index 82e305f8df..5f6d83b52d 100644
--- a/src/macros.c
+++ b/src/macros.c
@@ -284,7 +284,7 @@ COUNT is a repeat count, or nil for once, or 0 for infinite loop.  */)
 {
   Lisp_Object final;
   Lisp_Object tem;
-  int pdlcount = specpdl_ptr - specpdl;
+  int pdlcount = SPECPDL_INDEX ();
   int repeat = 1;
   struct gcpro gcpro1;
   int success_count = 0;