Index: library/nx/nx.tcl
===================================================================
diff -u -r740f3962715e4ba7f9c23086bd41a043c1c77427 -rf61518b9556af306683db0d000ad4ca637136b37
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 740f3962715e4ba7f9c23086bd41a043c1c77427)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision f61518b9556af306683db0d000ad4ca637136b37)
@@ -491,10 +491,10 @@
     :alias "info mixin classes"    ::nsf::methods::object::info::mixinclasses
     :alias "info parent"           ::nsf::methods::object::info::parent
     :alias "info precedence"       ::nsf::methods::object::info::precedence
-    :method "info slots" {{-type ::nx::Slot}} {
+    :method "info slots" {{-type ::nx::Slot} {pattern ""}} {
       set slotContainer [::nsf::self]::slot
       if {[::nsf::isobject $slotContainer]} {
-	::nsf::dispatch $slotContainer ::nsf::methods::object::info::children -type $type
+	::nsf::dispatch $slotContainer ::nsf::methods::object::info::children -type $type {*}$pattern
       }
     }
     :alias "info vars"           ::nsf::methods::object::info::vars