Index: tests/destroy.test
===================================================================
diff -u -r74211c75224617bc0d78cd2a6a2a89d1e4a834d1 -rdc9120981daa00d27f8639ea98a71efc2078e0e8
--- tests/destroy.test	(.../destroy.test)	(revision 74211c75224617bc0d78cd2a6a2a89d1e4a834d1)
+++ tests/destroy.test	(.../destroy.test)	(revision dc9120981daa00d27f8639ea98a71efc2078e0e8)
@@ -157,17 +157,20 @@
   rename o [current]
   puts stderr "AAAA [current] exists [::nsf::object::exists [current]]"
   :set x 1
-  ? "[current] set x" 1 "$::case can still access [current]"
+  #? "[current] set x" 1 "$::case can still access [current]"
+  ? "[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"
+  #? "set ::firstDestroy" 0 "firstDestroy called"
+  #? "set ::ObjectDestroy" 0 "ObjectDestroy called"
+  ? "set ::firstDestroy" 1 "firstDestroy called"
+  ? "set ::ObjectDestroy" 1 "ObjectDestroy called"
 }
 C create c1
 c1 foo
 
 ? {::nsf::object::exists c1} 1 "$::case object still exists after proc"
-? "set ::firstDestroy" 0 "firstDestroy called"
-? "set ::ObjectDestroy" 0 "ObjectDestroy called"
+? "set ::firstDestroy" 1 "firstDestroy called"
+? "set ::ObjectDestroy" 1 "ObjectDestroy called"
 
 #
 # cmd rename other proc to current object,