(Fgarbage_collect): Call CHECK_CONS_LIST before and after gc.

1 files changed, 4 insertions, 0 deletions

diff --git a/src/alloc.c b/src/alloc.c
index a907247d21c..f3af3940e15 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4687,6 +4687,8 @@ returns nil, because real GC can't be done.  */)
   if (pure_bytes_used_before_overflow)
     return Qnil;
 
+  CHECK_CONS_LIST ();
+
   /* Don't keep undo information around forever.
      Do this early on, so it is no problem if the user quits.  */
   {
@@ -4880,6 +4882,8 @@ returns nil, because real GC can't be done.  */)
 
   UNBLOCK_INPUT;
 
+  CHECK_CONS_LIST ();
+
   /* clear_marks (); */
   gc_in_progress = 0;