From cc9af6e242a36149dbbf4f3e4029a579af506ed0 Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Wed, 27 Mar 2024 20:18:32 +0000
Subject: fixes SF [edb4b065f49b9e51]: cherry-picked from 5d52c6d7302b320e]

---
 generic/tclStringObj.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index 5ec026f..fc697f9 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -3968,7 +3968,7 @@ TclStringCmp(
 	    if (empty > 0) {
 		switch (TclCheckEmptyString(value2Ptr)) {
 		case -1:
-		    s1 = 0;
+		    s1 = "";
 		    s1len = 0;
 		    s2 = TclGetStringFromObj(value2Ptr, &s2len);
 		    break;
@@ -3983,7 +3983,7 @@ TclStringCmp(
 	    } else if (TclCheckEmptyString(value2Ptr) > 0) {
 		switch (empty) {
 		case -1:
-		    s2 = 0;
+		    s2 = "";
 		    s2len = 0;
 		    s1 = TclGetStringFromObj(value1Ptr, &s1len);
 		    break;
-- 
cgit v0.12