1 files changed, 1 insertions, 1 deletions
diff --git a/src/gui/fpg_form.pas b/src/gui/fpg_form.pas
index 308cd6b5..0361d3fc 100644
--- a/src/gui/fpg_form.pas
+++ b/src/gui/fpg_form.pas
@@ -452,7 +452,7 @@ begin
             fpgApplication.Terminate
           else
             // We can't free ourselves, somebody else needs to do it
-            fpgPostMessage(Self, fpgApplication, FPGM_CLOSE);
+            fpgPostMessage(Self, fpgApplication, FPGM_FREEME);
         end;
     end;  { case CloseAction }
   end;  { if CloseQuery }