From a402b001443dcf9ca0ca0e45b0cd180567c4cb3c Mon Sep 17 00:00:00 2001
From: Ivan Bondarev <ibond84@googlemail.com>
Date: Sun, 23 Jun 2024 14:33:09 +0200
Subject: [PATCH] #3152

---
 Compiler/PCU/PCUReader.cs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Compiler/PCU/PCUReader.cs b/Compiler/PCU/PCUReader.cs
index 0d246d354..42acd1a4e 100644
--- a/Compiler/PCU/PCUReader.cs
+++ b/Compiler/PCU/PCUReader.cs
@@ -1850,7 +1850,7 @@ namespace PascalABCCompiler.PCU
             int field_off = br.ReadInt32();
             class_field cf = null;
             if (field_off > 0)
-                cf = GetClassField(br.ReadInt32());
+                cf = GetClassField(field_off);
             common_type_node cont = (common_type_node)GetTypeReference(br.ReadInt32());
             if (name==null)
                 name = GetStringInClass(cont, name_ref);