From 79732cb7bfe403d288455d98bc70bf3c73e09e8f Mon Sep 17 00:00:00 2001
From: pooryorick <com.digitalsmarties@pooryorick.com>
Date: Mon, 22 Aug 2016 07:58:55 +0000
Subject: Fix improper use of TclCheckEmptySTring.

---
 generic/tclExecute.c   | 2 +-
 generic/tclStringObj.c | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index b667a4a..f74c468 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -6209,7 +6209,7 @@ TEBCresume(
 	    Try to determine, without triggering generation of a string
 	    representation, whether one value is not a number.
 	*/
-	if (TclCheckEmptyString(valuePtr) > 1 || TclCheckEmptyString(value2Ptr) > 1) {
+	if (TclCheckEmptyString(valuePtr) > 0 || TclCheckEmptyString(value2Ptr) > 0) {
 	    goto stringCompare;
 	}
 
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index 6b850e3..31bed27 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -478,7 +478,7 @@ TclCheckEmptyString (
 	Tcl_DictObjSize(NULL, objPtr, &length);
 	return length == 0;
     }
-
+    
     if (objPtr->bytes == NULL) {
 	return TCL_EMPTYSTRING_UNKNOWN;
     }
-- 
cgit v0.12