From d6fff27296f668ac9cb89dda2fc6732634c19424 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 8 Jun 2017 21:10:01 +0000
Subject: Don't test the impossible.

---
 generic/tclStringObj.c | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index 43f8016..aa99545 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -3089,11 +3089,9 @@ TclStringCatObjv(
 		return TCL_ERROR;
 	    }
 	    dst = Tcl_GetString(objResultPtr) + start;
-	    if (length > start) {
-		TclFreeIntRep(objResultPtr);
-	    } else {
-		/* Can't happen ? */
-	    }
+
+	    /* assert ( length > start ) */
+	    TclFreeIntRep(objResultPtr);
 	} else {
 	    objResultPtr = Tcl_NewObj();	/* PANIC? */
 	    if (0 == Tcl_AttemptSetObjLength(objResultPtr, length)) {
-- 
cgit v0.12