1 files changed, 3 insertions, 0 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 91c5152ca84..8ebf3e05d69 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -6554,6 +6554,7 @@ mark_object (Lisp_Object arg)
           break;
 
         case Lisp_Misc_Ptr:
+        case Lisp_Misc_Bignum:
           XMISCANY (obj)->gcmarkbit = true;
           break;
 
@@ -6973,6 +6974,8 @@ sweep_misc (void)
                     uptr->finalizer (uptr->p);
                 }
 #endif
+              else if (mblk->markers[i].m.u_any.type == Lisp_Misc_Bignum)
+                mpz_clear (mblk->markers[i].m.u_bignum.value);
               /* Set the type of the freed object to Lisp_Misc_Free.
                  We could leave the type alone, since nobody checks it,
                  but this might catch bugs faster.  */