From a484b0e82db2033614a0287a50f447630f8e20de Mon Sep 17 00:00:00 2001
From: Sun Serega <sunserega2@gmail.com>
Date: Thu, 12 Dec 2024 13:49:17 +0200
Subject: [PATCH] fix (#3231)

---
 bin/Lib/PABCSystem.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
index 66615463a..0a3b7a5c6 100644
--- a/bin/Lib/PABCSystem.pas
+++ b/bin/Lib/PABCSystem.pas
@@ -4819,7 +4819,7 @@ begin
     exit;
   end;
   
-  if t.FullName.StartsWith('PABCSystem.NewSet`1') then
+  if t.IsGenericType and (t.GetGenericTypeDefinition = typeof(NewSet<>)) then
   begin
     res.Write('set of ');
     TypeToTypeNameHelper(t.GetGenericArguments.Single, res);