Index: library/nx/nx.tcl
===================================================================
diff -u -r3a867351bc680631bdf05f73b886763ac109a7f8 -re29434ffef30bea10b7422f1f295787d41377839
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 3a867351bc680631bdf05f73b886763ac109a7f8)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision e29434ffef30bea10b7422f1f295787d41377839)
@@ -579,16 +579,9 @@
     :alias "info parent"           ::nsf::methods::object::info::parent
     :alias "info precedence"       ::nsf::methods::object::info::precedence
     :method "info slots" {{-type ::nx::Slot} pattern:optional} {
-      set slotContainer [::nsf::self]::per-object-slot
-      if {[::nsf::object::exists $slotContainer]} {
-	set cmd [list ::nsf::methods::object::info::children -type $type]
-	if {[info exists pattern]} {lappend cmd $pattern}
-	set result [list]
-	foreach slot [$slotContainer {*}$cmd] {
-	  if {[$slot per-object]} { lappend result $slot }
-	}
-	return $result
-      }
+      set cmd [list ::nsf::methods::object::info::slots -type $type]
+      if {[info exists pattern]} {lappend cmd $pattern}
+      return [::nsf::my {*}$cmd]
     }
     :alias "info vars"           ::nsf::methods::object::info::vars
   }