1 files changed, 1 insertions, 1 deletions
diff --git a/src/keymap.c b/src/keymap.c
index 24252e0b117..d811d1727f4 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -3121,7 +3121,7 @@ This is text showing the elements of vector matched against indices.  */)
      (vector, describer)
      Lisp_Object vector, describer;
 {
-  int count = specpdl_ptr - specpdl;
+  int count = SPECPDL_INDEX ();
   if (NILP (describer))
     describer = intern ("princ");
   specbind (Qstandard_output, Fcurrent_buffer ());