diff --git a/components/codetools/fileprocs.pas b/components/codetools/fileprocs.pas
index 29aa36cd92..998df9161c 100644
--- a/components/codetools/fileprocs.pas
+++ b/components/codetools/fileprocs.pas
@@ -2322,6 +2322,7 @@ begin
     if FFiles.FindKey(PChar(TrimmedFilename),
                       @CompareFilenameWithFileStateCacheItem)=nil
     then begin
+      DebugLn(format('FileStateCache.FindFile: "%s"',[FileName]));
       WriteDebugReport;
       raise Exception.Create('');
     end;