diff --git a/ide/fpcsrcscan.pas b/ide/fpcsrcscan.pas
index de6f104009..3076261bf1 100644
--- a/ide/fpcsrcscan.pas
+++ b/ide/fpcsrcscan.pas
@@ -121,6 +121,7 @@ begin
     ApplyFPCSrcFiles(Directory,Files);
     // delete item in progress window
     debugln(['TFPCSrcScan.OnFilesGathered closing progress item ...']);
+    ProgressItem.Window.Close;
     FreeAndNil(ProgressItem);
     Scans.Remove(Self);
     debugln(['TFPCSrcScan.OnFilesGathered END']);