From bf055cc0d8bd85fe77feac05766fe8b5dea46a87 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 14 Apr 2021 18:37:35 +0000
Subject: Bug fix

---
 generic/tclUtil.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/generic/tclUtil.c b/generic/tclUtil.c
index d7e0168..086b03b 100644
--- a/generic/tclUtil.c
+++ b/generic/tclUtil.c
@@ -1859,7 +1859,8 @@ Tcl_ConcatObj(
 	    TclListObjGetElements(NULL, objPtr, &listc, &listv);
 	    if (listc) {
 		if (resPtr) {
-		    if (TCL_OK != Tcl_ListObjReplace(NULL, resPtr,
+		    if (Tcl_GetString(listv[0])[0] == '#'
+			    || TCL_OK != Tcl_ListObjReplace(NULL, resPtr,
 			    INT_MAX, 0, listc, listv)) {
 			/* Abandon ship! */
 			Tcl_DecrRefCount(resPtr);
-- 
cgit v0.12