Index: library/nx/nx.tcl
===================================================================
diff -u -rf7e340c5779999c9495abbb4a2112057b34e1a97 -r91c0f6d233633e6e7c76b911377b97609749bd49
--- library/nx/nx.tcl	(.../nx.tcl)	(revision f7e340c5779999c9495abbb4a2112057b34e1a97)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 91c0f6d233633e6e7c76b911377b97609749bd49)
@@ -488,11 +488,16 @@
     :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 slot" {name} {
-      set slot [::nsf::self]::slot::$name
+    :method "info slot handle" {name} {
+      if {![string match :* $name]} {set slot [::nsf::self]::slot::$name}
       if {[::nsf::object::exists $slot]} {return $slot}
       return ""
     }
+    :method "info slot parameter" {name} {
+      if {![string match :* $name]} {set slot [::nsf::self]::slot::$name}
+      if {[::nsf::object::exists $slot]} {return [$slot getParameterSpec]}
+      return ""
+    }
     :method "info slots" {{-type ::nx::Slot} pattern:optional} {
       set slotContainer [::nsf::self]::slot
       if {[::nsf::object::exists $slotContainer]} {