diff --git a/data/core/init.lua b/data/core/init.lua
index 83153946..63831ffa 100644
--- a/data/core/init.lua
+++ b/data/core/init.lua
@@ -860,6 +860,9 @@ function core.run()
       -- do not wait of events at idle_iterations = 1 to give a chance at core.step to run
       -- and set "redraw" flag.
       if idle_iterations > 1 then
+        collectgarbage()
+        local mk, mb = collectgarbage("count")
+        io.stderr:write(string.format("memory usage %g      \r", mk))
         if system.window_has_focus() then
           -- keep running even with no events to make the cursor blinks
           system.wait_event(frame_duration)
diff --git a/src/main.c b/src/main.c
index 75c98b01..c00b0ddc 100644
--- a/src/main.c
+++ b/src/main.c
@@ -168,5 +168,7 @@ init_lua:
   SDL_DestroyWindow(window);
   SDL_Quit();
 
+  fprintf(stderr, "complete shutdown\n");
+
   return EXIT_SUCCESS;
 }
diff --git a/src/renderer.c b/src/renderer.c
index b16b8546..b4cd1e66 100644
--- a/src/renderer.c
+++ b/src/renderer.c
@@ -157,10 +157,12 @@ void ren_free_font(RenFont *font) {
   for (int i = 0; i < MAX_GLYPHSET; i++) {
     GlyphSet *set = font->sets[i];
     if (set) {
+      fprintf(stderr, "free font bitmap: %d\n", i);
       FR_Bitmap_Free(set->image);
       free(set);
     }
   }
+  fprintf(stderr, "free font renderer\n");
   FR_Renderer_Free(font->renderer);
   free(font);
 }