diff --git a/src/gc.c b/src/gc.c
index 4e680385..b9ae7ce5 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -749,6 +749,8 @@ gc_ ()
 SCM
 gc ()
 {
+  if (getenv ("MES_DUMP") != 0)
+    gc_dump_arena (g_cells, gc_free ());
   if (g_debug > 5)
     {
       eputs ("symbols: ");
@@ -760,6 +762,9 @@ gc ()
     }
   gc_push_frame ();
   gc_ ();
+#if POINTER_CELLS && !GC_NOFLIP
+  gc_ ();
+#endif
   gc_pop_frame ();
   if (g_debug > 5)
     {
@@ -770,6 +775,8 @@ gc ()
       write_error_ (R0);
       eputs ("\n");
     }
+  if (getenv ("MES_DUMP") != 0)
+    gc_dump_arena (g_cells, gc_free ());
   return cell_unspecified;
 }