Index: library/nx/nx.tcl
===================================================================
diff -u -r8eb8f0692e858ee3b4a7f90d0e16bae6f835330f -rf7e340c5779999c9495abbb4a2112057b34e1a97
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 8eb8f0692e858ee3b4a7f90d0e16bae6f835330f)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision f7e340c5779999c9495abbb4a2112057b34e1a97)
@@ -493,10 +493,12 @@
       if {[::nsf::object::exists $slot]} {return $slot}
       return ""
     }
-    :method "info slots" {{-type ::nx::Slot} {pattern ""}} {
+    :method "info slots" {{-type ::nx::Slot} pattern:optional} {
       set slotContainer [::nsf::self]::slot
       if {[::nsf::object::exists $slotContainer]} {
-	::nsf::dispatch $slotContainer ::nsf::methods::object::info::children -type $type {*}$pattern
+	set cmd [list ::nsf::methods::object::info::children -type $type]
+	if {[::info exists pattern]} {lappend cmd $pattern}
+	return [::nsf::my {*}$cmd]
       }
     }
     :alias "info vars"           ::nsf::methods::object::info::vars
@@ -546,7 +548,7 @@
       if {[info exists source]} {lappend cmd -source $source}
       if {$closure} {lappend cmd -closure}
       if {[info exists pattern]} {lappend cmd $pattern}
-      ::nsf::my {*}$cmd
+      return [::nsf::my {*}$cmd]
     }
     :alias "info subclass"       ::nsf::methods::class::info::subclass
     :alias "info superclass"     ::nsf::methods::class::info::superclass