Index: library/lib/nx-test.tcl
===================================================================
diff -u -N -r89a8659e26a8b544c086117f988b01e3c42b41d3 -r464ec0a020a47ef504e143ad0e0c5d0990044488
--- library/lib/nx-test.tcl	(.../nx-test.tcl)	(revision 89a8659e26a8b544c086117f988b01e3c42b41d3)
+++ library/lib/nx-test.tcl	(.../nx-test.tcl)	(revision 464ec0a020a47ef504e143ad0e0c5d0990044488)
@@ -83,12 +83,15 @@
       if {[info exists arg]} {
 	foreach o [Object info instances -closure] {set pre_exist($o) 1}
 
-	namespace eval :: [list [current] eval $arg]
-
-	foreach o [Object info instances -closure] {
-	  if {[info exists pre_exist($o)]} continue
-	  if {$o in {::xotcl::Attribute}} continue
-	  if {[::nsf::object::exists $o]} {$o destroy}
+        # namespace eval :: [list [current] eval $arg]
+        apply [list {} $arg ::]
+        
+        foreach o [Object info instances -closure] {
+          if {[info exists pre_exist($o)]} continue
+          if {$o eq "::xotcl::Attribute"} continue
+          if {[namespace tail $o] in {slot per-object-slot}} continue
+          if {[string match {*::slot::__*} $o]} continue
+          if {[::nsf::object::exists $o]} {$o destroy}
 	}
       }
     }
@@ -208,6 +211,11 @@
   nsf::__db_run_assertions
 }
 
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: