Index: library/lib/test.tcl
===================================================================
diff -u -rb3018d3be0f1524a3f1709edc0e2ddb5d8bc4c0b -rda6586782390b02ed7660b56417c3db00d63d1c3
--- library/lib/test.tcl	(.../test.tcl)	(revision b3018d3be0f1524a3f1709edc0e2ddb5d8bc4c0b)
+++ library/lib/test.tcl	(.../test.tcl)	(revision da6586782390b02ed7660b56417c3db00d63d1c3)
@@ -53,7 +53,7 @@
         foreach o [Object info instances -closure] {
           if {[info exists pre_exist($o)]} continue
           #puts "must destroy $o"
-          if {[::nsf::isobject $o]} {$o destroy}
+          if {[::nsf::object::exists $o]} {$o destroy}
         }
       }
     }