diff --git a/ide/main.pp b/ide/main.pp
index 07a28828d4..8a7c19b1bd 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -5401,7 +5401,7 @@ begin
       GetFixupReferenceNames(CurRoot,ReferenceRootNames);
       for j:=0 to ReferenceRootNames.Count-1 do begin
         RefRootName:=ReferenceRootNames[j];
-        if UTF8SearchInStringList(LoadingReferenceNames,RefRootName)>=0
+        if SearchInStringListI(LoadingReferenceNames,RefRootName)>=0
         then
           continue;
         ReferenceInstanceNames.Clear;
diff --git a/ide/sourcefilemanager.pas b/ide/sourcefilemanager.pas
index 584be3e21d..c4b884fa68 100644
--- a/ide/sourcefilemanager.pas
+++ b/ide/sourcefilemanager.pas
@@ -1685,12 +1685,12 @@ begin
   try
     if not CodeToolBoss.FindUsedUnitNames(MainUnitInfo.Source,
       MainUsesSection,ImplementationUsesSection) then exit;
-    if (UTF8SearchInStringList(MainUsesSection,'forms')<0)
-    and (UTF8SearchInStringList(ImplementationUsesSection,'forms')<0) then
+    if (SearchInStringListI(MainUsesSection,'forms')<0)
+    and (SearchInStringListI(ImplementationUsesSection,'forms')<0) then
       exit;
     // project uses lcl unit Forms
-    if (UTF8SearchInStringList(MainUsesSection,'interfaces')>=0)
-    or (UTF8SearchInStringList(ImplementationUsesSection,'interfaces')>=0) then
+    if (SearchInStringListI(MainUsesSection,'interfaces')>=0)
+    or (SearchInStringListI(ImplementationUsesSection,'interfaces')>=0) then
       exit;
     // project uses lcl unit Forms, but not unit interfaces
     // this will result in strange linker error