1 files changed, 1 insertions, 1 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 3ab2a6e3843..5fc40d13b8d 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -6217,7 +6217,7 @@ mark_object (Lisp_Object arg)
           MARK_STRING (XSTRING (ptr->name));
         MARK_INTERVAL_TREE (string_intervals (ptr->name));
         /* Inner loop to mark next symbol in this bucket, if any.  */
-        ptr = ptr->next;
+        po = ptr = ptr->next;
         if (ptr)
           goto nextsym;
       }