diff options
-rw-r--r-- | generic/tclStringObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
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 */ |