From 4e2a2de6e8e2545dfc6da0d6bdc7856950ea5975 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 3 Apr 2020 14:28:23 +0000
Subject: Fix broken build.

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

diff --git a/generic/tclUtf.c b/generic/tclUtf.c
index 47855dd..a8b04bf 100644
--- a/generic/tclUtf.c
+++ b/generic/tclUtf.c
@@ -2451,7 +2451,7 @@ TclUtfToUCS4(
 			 * by the UTF-8 string. */
 {
     /* Make use of the #undef Tcl_UtfToUniChar above, which already handles UCS4. */
-    return Tcl_UtfToUniChar(src, &ch);
+    return Tcl_UtfToUniChar(src, ucs4Ptr);
 }
 #endif
 
-- 
cgit v0.12