Index: tests/destroy.test
===================================================================
diff -u -r74b7a4066526ff5f5a8080ed907f71c9ed5c7700 -r85ee1fdb043ed3f82fd272cc004c476c40861fdb
--- tests/destroy.test	(.../destroy.test)	(revision 74b7a4066526ff5f5a8080ed907f71c9ed5c7700)
+++ tests/destroy.test	(.../destroy.test)	(revision 85ee1fdb043ed3f82fd272cc004c476c40861fdb)
@@ -31,7 +31,9 @@
   :destroy
   puts stderr "AAAA [current] exists [::nsf::object::exists [current]]"
   :set x 1
+  puts stderr XXXX2
   ? "[current] set x" 1 "$::case can still access [current]"
+  puts stderr XXXX3
   ? {::nsf::object::exists c1} 1 "$::case object still exists in proc"
   ? "set ::firstDestroy" 1 "firstDestroy called"
   ? "set ::ObjectDestroy" 1 "ObjectDestroy called"