diff --git a/lcl/lclproc.pas b/lcl/lclproc.pas
index 90d836c42f..cdaba071f3 100644
--- a/lcl/lclproc.pas
+++ b/lcl/lclproc.pas
@@ -3013,9 +3013,9 @@ begin
           +IntToStr(1+StrToIntDef(copy(Identifier,p+1,length(Identifier)-p),0));
 end;
 
-function IsFontNameDefault(const AName: string): boolean; inline;
+function IsFontNameDefault(const AName: string): boolean;
 begin
-  Result := LowerCase(AName) = 'default';
+  Result := CompareText(AName, 'default') = 0;
 end;
 
 procedure FreeLineInfoCache;