diff --git a/ide/ideprocs.pp b/ide/ideprocs.pp
index 975f4b0754..269617d566 100644
--- a/ide/ideprocs.pp
+++ b/ide/ideprocs.pp
@@ -528,7 +528,8 @@ begin
     repeat
       // check if special file
       if (FileInfo.Name='.') or (FileInfo.Name='..') then continue;
-      if CompareFileExt(Directory,Ext,false)=0 then begin
+      // check extension
+      if CompareFileExt(FileInfo.Name,Ext,false)=0 then begin
         Result:=AppendPathDelim(Directory)+FileInfo.Name;
         break;
       end;