From 653e0a778fe3ba7f9f7341265060bfba4ee5d6b2 Mon Sep 17 00:00:00 2001
From: pooryorick <com.digitalsmarties@pooryorick.com>
Date: Tue, 27 Aug 2024 10:50:11 +0000
Subject: Fix logic that was inadvertently inverted back in [295715a1b1b2c3d5]

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

diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index 258d02b..f4428d1 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -3191,7 +3191,7 @@ TclStringCat(
 		binary = 0;
 		if (ov > objv+1 && ISCONTINUATION(TclGetString(objPtr))) {
 		    forceUniChar = 1;
-		} else if ((objPtr->typePtr) && TclHasInternalRep(objPtr, &tclStringType)) {
+		} else if ((objPtr->typePtr) && !TclHasInternalRep(objPtr, &tclStringType)) {
 		    /* Prevent shimmer of non-string types. */
 		    allowUniChar = 0;
 		}
-- 
cgit v0.12