1 files changed, 6 insertions, 0 deletions
diff --git a/tests/dict.test b/tests/dict.test
index 6c00c62..3658581 100644
--- a/tests/dict.test
+++ b/tests/dict.test
@@ -1870,6 +1870,12 @@ test dict-23.3 {CompileWord OBOE} {
     apply {{} {tcl::dict::lappend foo bar \
 	[format baz]}}
 } {bar baz}
+test dict-23.4 {CompileWord OBOE} {
+    apply {n {
+	dict set foo {*}{
+	} [return [incr n -[linenumber]]] val
+    }} [linenumber]
+} 1
 
 rename linenumber {}
 test dict-24.22 {dict map results (non-compiled)} {