1 files changed, 1 insertions, 1 deletions
diff --git a/src/sound.c b/src/sound.c
index 4504e7e6ee1..90fe5f524c7 100644
--- a/src/sound.c
+++ b/src/sound.c
@@ -402,7 +402,7 @@ Internal use only, use `play-sound' instead.  */)
   struct sound_device sd;
   struct sound s;
   Lisp_Object args[2];
-  int count = specpdl_ptr - specpdl;
+  int count = SPECPDL_INDEX ();
 
   file = Qnil;
   GCPRO2 (sound, file);