From 552096443bedbf1342d28d712d7254020d563694 Mon Sep 17 00:00:00 2001
From: "J. Gareth \"Curious Kit\" Moreton" <gareth@moreton-family.com>
Date: Fri, 4 Apr 2025 11:31:38 +0100
Subject: [PATCH]   * Fixed oversight in TStringConstNode that stopped it
 building under DEBUG_NODE_XML

---
 compiler/ncon.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/ncon.pas b/compiler/ncon.pas
index f753272a52..0a0a64f974 100644
--- a/compiler/ncon.pas
+++ b/compiler/ncon.pas
@@ -1306,10 +1306,10 @@ implementation
           begin
             { value_str is of type PCompilerWideString }
             SetLength(OutputStr, len);
-            UnicodeToUtf8(PChar(OutputStr), PUnicodeChar(PCompilerWideString(value_str)^.data), len + 1); { +1 for the null terminator }
+            UnicodeToUtf8(PChar(OutputStr), PUnicodeChar(valuews.data), len + 1); { +1 for the null terminator }
           end;
         else
-          OutputStr := ansistring(value_str);
+          OutputStr := PAnsichar(@valueas[0]);
           SetLength(OutputStr, len);
         end;