Index: library/nx/nx.tcl
===================================================================
diff -u -r364a9eda329acd7d20173a4165d71394d3061aae -r62dbdfdbe5604ced0d8eff5ee990e525bb931cec
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 364a9eda329acd7d20173a4165d71394d3061aae)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 62dbdfdbe5604ced0d8eff5ee990e525bb931cec)
@@ -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