Index: library/lib/test.tcl
===================================================================
diff -u -r89b5047e54e47a88a7de75d8523a07ffa5743407 -rf3cb5afe6aa1b6761b4a9909058f64ff7d64ab92
--- library/lib/test.tcl	(.../test.tcl)	(revision 89b5047e54e47a88a7de75d8523a07ffa5743407)
+++ library/lib/test.tcl	(.../test.tcl)	(revision f3cb5afe6aa1b6761b4a9909058f64ff7d64ab92)
@@ -53,7 +53,7 @@
         foreach o [Object info instances -closure] {
           if {[info exists pre_exist($o)]} continue
           #puts "must destroy $o"
-          if {[::nx::core::objectproperty $o object]} {$o destroy}
+          if {[::nsf::objectproperty $o object]} {$o destroy}
         }
       }
     }