From 4bddf12657ac416c76e192a848a6f9539026fec4 Mon Sep 17 00:00:00 2001
From: Michael VAN CANNEYT <mvancanneyt@tixeo.com>
Date: Sat, 7 Jan 2023 12:48:22 +0100
Subject: [PATCH] * Fix typo

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

diff --git a/rtl/inc/isotmp.inc b/rtl/inc/isotmp.inc
index 4d8376bb57..1948566697 100644
--- a/rtl/inc/isotmp.inc
+++ b/rtl/inc/isotmp.inc
@@ -24,7 +24,7 @@
         unique : Boolean;
       begin
         InternalChangeCase := S;
-        if Length(InternalChangeCase) then
+        if Length(InternalChangeCase)=0 then
           exit;
         unique := false;
         p := PWideChar(InternalChangeCase);