Index: library/lib/test.tcl
===================================================================
diff -u -r4a27d9aef2dbddc2257c9716a774c4f1662afffb -r18122dd21b99cf0d5b4cd01635048641a23aa051
--- library/lib/test.tcl	(.../test.tcl)	(revision 4a27d9aef2dbddc2257c9716a774c4f1662afffb)
+++ library/lib/test.tcl	(.../test.tcl)	(revision 18122dd21b99cf0d5b4cd01635048641a23aa051)
@@ -53,7 +53,7 @@
         foreach o [Object info instances -closure] {
           if {[info exists pre_exist($o)]} continue
           #puts "must destroy $o"
-          if {[::nsf::objectproperty $o object]} {$o destroy}
+          if {[::nsf::isobject $o]} {$o destroy}
         }
       }
     }