Index: tests/destroy.test
===================================================================
diff -u -rc4f449cb353be812ba6502ef8e9587e87881f59b -r5ab2ad98d7e3d8509a26ea32ec64fa9cc78af2f8
--- tests/destroy.test	(.../destroy.test)	(revision c4f449cb353be812ba6502ef8e9587e87881f59b)
+++ tests/destroy.test	(.../destroy.test)	(revision 5ab2ad98d7e3d8509a26ea32ec64fa9cc78af2f8)
@@ -161,7 +161,7 @@
   puts stderr "AAAA [current] exists [::nsf::object::exists [current]]"
   :set x 1
   #? "[current] set x" 1 "$::case can still access [current]"
-  ? "[current] set x" {can't read "x": no such variable} "$::case cannot access [current]"
+  ? "[current] set x" {TCL LOOKUP VARNAME x} "$::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"