Index: tests/destroy.test
===================================================================
diff -u -r5ab2ad98d7e3d8509a26ea32ec64fa9cc78af2f8 -r1d2bdbea2141f159f982e8dde0f9b0a6778a8b71
--- tests/destroy.test	(.../destroy.test)	(revision 5ab2ad98d7e3d8509a26ea32ec64fa9cc78af2f8)
+++ tests/destroy.test	(.../destroy.test)	(revision 1d2bdbea2141f159f982e8dde0f9b0a6778a8b71)
@@ -2,6 +2,8 @@
 package require nx
 package require nx::test
 
+set ::tcl86 [package vsatisfies [package req Tcl] 8.6]
+
 nx::test configure -count 10
 
 ::nx::configure defaultMethodCallProtection false
@@ -161,7 +163,12 @@
   puts stderr "AAAA [current] exists [::nsf::object::exists [current]]"
   :set x 1
   #? "[current] set x" 1 "$::case can still access [current]"
-  ? "[current] set x" {TCL LOOKUP VARNAME x} "$::case cannot access [current]"
+
+  if {$::tcl86} {
+    ? "[current] set x" {TCL LOOKUP VARNAME x} "$::case cannot access [current]"
+  } else {
+    ? "[current] set x" {can't read "x": no such variable} "$::case cannot access [current]"
+  }
   ? {::nsf::object::exists c1} 1 "$::case object still exists in proc"
   #? "set ::firstDestroy" 0 "firstDestroy called"
   #? "set ::ObjectDestroy" 0 "ObjectDestroy called"