From 554ed37525a85518448300c6cdfd33d7d2684425 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 14 Jul 2022 10:53:55 +0000
Subject: Same bug-fix as [b79df322a9], but then for Tcl_AppendUnicodeToObj()

---
 generic/tclStringObj.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index b9d603d..7ce1cdc 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -1744,7 +1744,7 @@ Tcl_AppendUnicodeToObj(
 	return;
     }
 
-    SetStringFromAny(NULL, objPtr);
+    SetUTF16StringFromAny(NULL, objPtr);
     stringPtr = GET_STRING(objPtr);
     stringPtr = stringAttemptRealloc(stringPtr, stringPtr->numChars + length);
     memcpy(&stringPtr->unicode[stringPtr->numChars], unicode, length);
-- 
cgit v0.12