From e94f57638258cf93c4872ff4b3ad901935499bcf Mon Sep 17 00:00:00 2001
From: fm-117 <milletfl@e-i.com>
Date: Fri, 26 Jan 2024 10:08:29 +0100
Subject: [PATCH] WI #2610 Fix REDEFINES target lookup

---
 TypeCobol/Compiler/CodeModel/SymbolTable.cs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/TypeCobol/Compiler/CodeModel/SymbolTable.cs b/TypeCobol/Compiler/CodeModel/SymbolTable.cs
index 2e16f48ac..2950b779d 100644
--- a/TypeCobol/Compiler/CodeModel/SymbolTable.cs
+++ b/TypeCobol/Compiler/CodeModel/SymbolTable.cs
@@ -347,12 +347,12 @@ void SearchChildren(IReadOnlyList<Node> children)
         public DataDefinition GetRedefinedVariable(DataRedefines redefinesNode)
         {
             var redefinesDataName = redefinesNode.CodeElement.RedefinesDataName.Name;
-            var childrens = redefinesNode.Parent.Children;
-            int index = redefinesNode.Parent.IndexOf(redefinesNode);
+            var children = redefinesNode.Parent.Children;
+            int index = redefinesNode.Parent.IndexOf(redefinesNode) - 1; // Start search just above the REDEFINES
 
             while (index >= 0)
             {
-                var child = childrens[index];
+                var child = children[index];
                 if (child.Name != null)
                 {
                     var type = child.CodeElement?.Type;