1 files changed, 20 insertions, 1 deletions
diff --git a/tests/appendComp.test b/tests/appendComp.test
index f2a9ebf..14e9567 100644
--- a/tests/appendComp.test
+++ b/tests/appendComp.test
@@ -12,7 +12,7 @@
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
-    package require tcltest
+    package require tcltest 2
     namespace import -force ::tcltest::*
 }
 catch {unset x}
@@ -349,6 +349,21 @@ test appendComp-7.9 {append var does not trigger read trace} {
     bar
 } {0}
 
+test appendComp-8.1 {defer error to runtime} -setup {
+    interp create slave
+} -body {
+    slave eval {
+	proc foo {} {
+	    proc append args {}
+	    append
+	}
+	foo
+    }
+} -cleanup {
+    interp delete slave
+} -result {}
+
+
 # New tests for bug 3057639 to show off the more consistent behaviour
 # of lappend in both direct-eval and bytecompiled code paths (see
 # append.test for the direct-eval variants). lappend now behaves like
@@ -416,6 +431,10 @@ test appendComp-9.3 {bug 3057639, append direct eval, read trace on non-existing
     list [catch { foo } msg] $msg
 } {0 {new value}}
 
+
+
+
+
 catch {unset i x result y}
 catch {rename foo ""}
 catch {rename bar ""}