--- a/hedgewars/uStore.pas	Mon Dec 08 11:20:31 2014 -0500
+++ b/hedgewars/uStore.pas	Mon Dec 08 17:43:27 2014 +0100
@@ -1257,8 +1257,20 @@
 end;
 
 procedure freeModule;
+var fi: THWFont;
 begin
     StoreRelease(false);
+    // make sure fonts are cleaned up
+    for fi:= Low(THWFont) to High(THWFont) do
+        with Fontz[fi] do
+            begin
+            if Handle <> nil then
+                begin
+                TTF_CloseFont(Handle);
+                Handle:= nil;
+                end;
+            end;
+
     TTF_Quit();
 {$IFDEF SDL2}
     SDL_GL_DeleteContext(SDLGLcontext);