diff --git a/lcl/interfaces/carbon/carbonwsdialogs.pp b/lcl/interfaces/carbon/carbonwsdialogs.pp
index e3212da8f5..2bb7a0e4e1 100644
--- a/lcl/interfaces/carbon/carbonwsdialogs.pp
+++ b/lcl/interfaces/carbon/carbonwsdialogs.pp
@@ -268,6 +268,7 @@ begin
         if OSError(AECountItems(DialogReply.Selection, FileCount), Self,
           SShowModal, 'AECountItems') then Exit;
           
+        FileDialog.Files.Clear;
         for FileIdx := 1 to FileCount do
         begin
           if OSError(AEGetNthDesc(DialogReply.Selection, FileIdx, typeFSRef,