Index: library/nx/nx.tcl
===================================================================
diff -u -rab02510271f298ae1c4b3aa585a018badc84b013 -re9d5dd4af67bdeeaa3052f5c010d135d899a6dd6
--- library/nx/nx.tcl	(.../nx.tcl)	(revision ab02510271f298ae1c4b3aa585a018badc84b013)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision e9d5dd4af67bdeeaa3052f5c010d135d899a6dd6)
@@ -531,14 +531,18 @@
     :alias "info lookup"         ::nx::Object::slot::__info::lookup
     :alias "info filter guard"   ::nsf::methods::class::info::filterguard
     :alias "info filter methods" ::nsf::methods::class::info::filtermethods
-    #:alias "info forward"        ::nsf::methods::class::info::forward
     :alias "info has"            ::nx::Object::slot::__info::has
     :alias "info heritage"       ::nsf::methods::class::info::heritage
     :alias "info instances"      ::nsf::methods::class::info::instances
     :alias "info methods"        ::nsf::methods::class::info::methods
     :alias "info mixin guard"    ::nsf::methods::class::info::mixinguard
     :alias "info mixin classes"  ::nsf::methods::class::info::mixinclasses
     :alias "info mixinof"        ::nsf::methods::class::info::mixinof
+    :method "info slots" {{-type ::nx::Slot} pattern:optional} {
+      set cmd [list ::nsf::methods::class::info::slots -type $type]
+      if {[info exists pattern]} {lappend cmd $pattern}
+      ::nsf::my {*}$cmd
+    }
     :alias "info subclass"       ::nsf::methods::class::info::subclass
     :alias "info superclass"     ::nsf::methods::class::info::superclass
   }