From 0ac2c2e65981fba54b935404d8e5d1760a181cd8 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 29 Sep 2023 09:53:49 +0000
Subject: Undo changes in tclVar.c: no longer necessary

---
 generic/tclVar.c | 14 +-------------
 1 file changed, 1 insertion(+), 13 deletions(-)

diff --git a/generic/tclVar.c b/generic/tclVar.c
index 231b09d..31312e1 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -5587,27 +5587,15 @@ TclObjVarErrMsg(
 				 * variable, or -1. Only used when part1Ptr is
 				 * NULL. */
 {
-    const char *part2Str = NULL;
     if (!part1Ptr) {
 	if (index == -1) {
 	    Tcl_Panic("invalid part1Ptr and invalid index together");
 	}
 	part1Ptr = localName(((Interp *)interp)->varFramePtr, index);
     }
-    if (part2Ptr) {
-	Tcl_DString ds;
-	Tcl_DStringInit(&ds);
-
-	part2Str = TclGetString(part2Ptr);
-	if (Tcl_UtfToExternalDStringEx(NULL, TCLFSENCODING, part2Str, -1, 0, &ds, NULL) != TCL_OK) {
-	    /* part2Str is not printable to stdout, because of strict profile. Don't bother */
-	    part2Str = "???";
-	}
-	Tcl_DStringFree(&ds);
-    }
     Tcl_SetObjResult(interp, Tcl_ObjPrintf("can't %s \"%s%s%s%s\": %s",
 	    operation, TclGetString(part1Ptr), (part2Ptr ? "(" : ""),
-	    (part2Ptr ? part2Str : ""), (part2Ptr ? ")" : ""),
+	    (part2Ptr ? TclGetString(part2Ptr) : ""), (part2Ptr ? ")" : ""),
 	    reason));
 }
 
-- 
cgit v0.12