1 files changed, 6 insertions, 0 deletions
diff --git a/tests/dict.test b/tests/dict.test
index e898637..6c00c62 100644
--- a/tests/dict.test
+++ b/tests/dict.test
@@ -1865,6 +1865,12 @@ j
 	}
     }} [linenumber]}}
 } 5
+test dict-23.3 {CompileWord OBOE} {
+    # segfault when buggy
+    apply {{} {tcl::dict::lappend foo bar \
+	[format baz]}}
+} {bar baz}
+
 rename linenumber {}
 test dict-24.22 {dict map results (non-compiled)} {
     dict map {k v} [dict map {k v} {a 1 b 2 c 3 d 4} { list $v $k }] {