Index: library/nx/nx.tcl
===================================================================
diff -u -re4021ec17be539fb4d0e7547bd9e93cece90fd49 -r851e2c38fe3ae9d84f531605d55defe2e1308a02
--- library/nx/nx.tcl	(.../nx.tcl)	(revision e4021ec17be539fb4d0e7547bd9e93cece90fd49)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 851e2c38fe3ae9d84f531605d55defe2e1308a02)
@@ -847,7 +847,15 @@
     :alias "info mixin classes"  ::nsf::cmd::ObjectInfo2::mixinclasses
     :alias "info parent"         ::nsf::cmd::ObjectInfo2::parent
     :alias "info precedence"     ::nsf::cmd::ObjectInfo2::precedence
-    :alias "info slotobjects"    ::nsf::cmd::ObjectInfo2::slotobjects
+    :method "info slotobjects" {} {
+      set result [list]
+      foreach slot [::nsf::dispatch [::nsf::current object] ::nsf::cmd::ObjectInfo2::slotobjects] {
+	puts stderr "check $slot [::nsf::objectproperty $slot type ::nx::Slot]"
+	if {![::nsf::objectproperty $slot type ::nx::Slot]} continue
+	lappend result $slot
+      }
+      return $result
+    }
     :alias "info vars"           ::nsf::cmd::ObjectInfo2::vars
   }