Posted to tcl by sebres at Mon Jul 12 15:04:16 GMT 2021view pretty

diff --git "a/tests/interp.test" "b/tests/interp.test"
--- "a/tests/interp.test"
+++ "b/tests/interp.test"
@@ -3595,17 +3595,18 @@ test interp-36.7 {SlaveBgerror sets error handler of slave [1999035]} -setup {
         variable result
         set result [lindex $args 0]
     }
+    set tout [after 5000 {set result timeout}]
 } -body {
     slave eval {
         variable done {}
         after 0 error foo
-        after 10 [list ::set [namespace which -variable done] {}]
-        vwait [namespace which -variable done]
     }
+    vwait result
     set result
 } -cleanup {
+    after cancel $tout
     variable result {}
-    unset -nocomplain result
+    unset -nocomplain result tout
     interp delete slave
 } -result foo