From 6becdbe2f1e2dce5f36cd020b14831ece1df64d9 Mon Sep 17 00:00:00 2001
From: avl <avl>
Date: Wed, 7 Jun 2017 10:02:30 +0000
Subject: Stop trimming on first non empty-string.

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

diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index d85bd30..92f0627 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -2914,7 +2914,7 @@ TclStringCatObjv(
         objPtr = *(--ov); --oc;
         if (objPtr->bytes && objPtr->length==0) {
             objc--;
-        }
+        } else break;
     }
 
     /* Don't update objv, yet: we may still need it */
-- 
cgit v0.12