diff --git a/lcl/interfaces/cocoa/cocoawsdialogs.pas b/lcl/interfaces/cocoa/cocoawsdialogs.pas
index 3ddfc38164..82c3165b94 100644
--- a/lcl/interfaces/cocoa/cocoawsdialogs.pas
+++ b/lcl/interfaces/cocoa/cocoawsdialogs.pas
@@ -440,6 +440,7 @@ begin
     if lFilter <> nil then
       FileDialog.FilterIndex := lFilter.lastSelectedItemIndex+1;
   end;
+  FileDialog.DoClose;
 
 
   // release everything