From 9226f8956c3833d91520a45bf56e538efe08f3a7 Mon Sep 17 00:00:00 2001
From: "Michael[tm] Smith" <mike@w3.org>
Date: Wed, 9 Aug 2023 16:18:53 +0900
Subject: [PATCH] Use normal (non-destructive) Append() for generating
 reference links

---
 src/wattsi.pas | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/wattsi.pas b/src/wattsi.pas
index d7643f4..872354e 100644
--- a/src/wattsi.pas
+++ b/src/wattsi.pas
@@ -1588,15 +1588,13 @@    TCrossReferences = record
 
             NewLink := ConstructHTMLElement(eA);
             Scratch := Default(Rope);
-            ExtractedData := Element.TextContent.ExtractAll();
             Scratch.Append('#refs');
-            Scratch.AppendDestructively(ExtractedData);
+            Scratch.Append(ReferenceName);
             NewLink.SetAttributeDestructively('href', Scratch);
 
             Scratch := Default(Rope);
-            ExtractedData := Element.TextContent.ExtractAll();
             Scratch.Append('[');
-            Scratch.AppendDestructively(ExtractedData);
+            Scratch.Append(ReferenceName);
             Scratch.Append(']');
             NewLink.AppendChild(TText.CreateDestructively(Scratch));