diff -r 992863acb2b7 -r efa069762cb2 hedgewars/uStore.pas --- 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);