From 1c0ca80fe58e9eab0f12a8cdcb964991931ce6c6 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 27 Oct 2020 20:09:37 +0000
Subject: [11229bad5f] New test to demonstrate the bug.

---
 tests/string.test | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tests/string.test b/tests/string.test
index 8cebce9..4817bec 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -2477,6 +2477,13 @@ test string-31.24.$noComp {string insert, string end, pure Uni, both shared} {
 test string-31.25.$noComp {string insert, neither byte array nor Unicode} {
     run {tcl::string::insert [makeList a b c] 1 zzzzzz}
 } {azzzzzz b c}
+test string-31.26.$noComp {[11229bad5f] string insert, compiler} -setup {
+    set i 2
+} -body {
+    run {tcl::string::insert abcd $i xyz}
+} -cleanup {
+    unset i
+} -result abxyzcd
 
 test string-32.1.$noComp {string is dict} {
     string is dict {a b c d}
-- 
cgit v0.12


From 84623a09f22aed5b876eb4f0203a6fbb8df76bf5 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 27 Oct 2020 20:24:13 +0000
Subject: Use TCL_ERROR to signal inability to compile.

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

diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c
index fe661f8..26698a8 100644
--- a/generic/tclCompCmdsSZ.c
+++ b/generic/tclCompCmdsSZ.c
@@ -462,7 +462,7 @@ TclCompileStringInsertCmd(
 	    TCL_INDEX_END, &idx)) {
 
 	/* Nothing useful knowable - cease compile; let it direct eval */
-	return TCL_OK;
+	return TCL_ERROR;
     }
 
     /* Compute and push the string to be inserted */
-- 
cgit v0.12