From 6d49f7db7b65c5c561c6f99bd78d4adeada01b49 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 14 Feb 2024 20:08:16 +0100
Subject: [PATCH] * Correct UTF8 detection

---
 rtl/objpas/classes/classes.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/classes/classes.inc b/rtl/objpas/classes/classes.inc
index 689035b8ab..fb672ed852 100644
--- a/rtl/objpas/classes/classes.inc
+++ b/rtl/objpas/classes/classes.inc
@@ -2747,7 +2747,7 @@ begin
     Result:=sofBinary
   else if (AnsiChar(Sig[0]) in StartChars) then
     Result:=sofText
-  else if (Sig[1]=$BF) and (Sig[2]=$BB) and (Sig[3]=$EF) then
+  else if (Sig[0]=$EF) and (Sig[1]=$BB) and (Sig[2]=$BF) then
     Result:=sofUTF8Text;
 end;