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