1 files changed, 7 insertions, 1 deletions
diff --git a/tests/util.test b/tests/util.test
index 6a0785e..c910b43 100644
--- a/tests/util.test
+++ b/tests/util.test
@@ -174,6 +174,12 @@ test util-3.5.1 {Tcl_ConverCountedElement procedure - quote leading '#'} {
     rename #\{ {}
     set result
 } {#}
+test util-3.6 {Tcl_ConvertElement, Bug 3371644} {
+    interp create #\\
+    interp alias {} x #\\ concat
+    interp target {} x ;# Crash if bug not fixed
+    interp delete #\\
+} {}
 
 test util-4.1 {Tcl_ConcatObj - backslash-space at end of argument} {
     concat a {b\ } c
@@ -3889,4 +3895,4 @@ return
 
 # Local Variables:
 # mode: tcl
-# End:
-\ No newline at end of file
+# End: