Index: library/nx/nx.tcl
===================================================================
diff -u -r5ce68a42506fcc981cea2431afa1b09b476e667a -r2930650cf87cc180b657bcaa8bba66891af5369a
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 5ce68a42506fcc981cea2431afa1b09b476e667a)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 2930650cf87cc180b657bcaa8bba66891af5369a)
@@ -761,7 +761,7 @@
     }
     :method "info slot names" {{-type ::nx::Slot} -closure:switch -source:optional pattern:optional} {
       set result {}
-      foreach slot [: ::nsf::methods::class::info::slotobjects {*}[current args]] {
+      foreach slot [: ::nsf::methods::class::info::slotobjects -type $type {*}[current args]] {
 	lappend result [$slot name]
       }
       return $result