1 files changed, 2 insertions, 3 deletions

diff --git a/src/eval.c b/src/eval.c
index 9daae92e55a..126ee2e9555 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -3960,7 +3960,7 @@ mark_specpdl (union specbinding *first, union specbinding *ptr)
           break;
 
         case SPECPDL_UNWIND_ARRAY:
-          mark_maybe_objects (pdl->unwind_array.array, pdl->unwind_array.nelts);
+          mark_objects (pdl->unwind_array.array, pdl->unwind_array.nelts);
           break;
 
         case SPECPDL_UNWIND_EXCURSION:
@@ -3974,8 +3974,7 @@ mark_specpdl (union specbinding *first, union specbinding *ptr)
             mark_object (backtrace_function (pdl));
             if (nargs == UNEVALLED)
               nargs = 1;
-            while (nargs--)
-              mark_object (backtrace_args (pdl)[nargs]);
+            mark_objects (backtrace_args (pdl), nargs);
           }
           break;