Index: library/nx/nx.tcl
===================================================================
diff -u -r729b49eb1dcb08183a0ed41588416a923271811a -rd9344280c05990c0254aa652a08a09da3e5822b1
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 729b49eb1dcb08183a0ed41588416a923271811a)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision d9344280c05990c0254aa652a08a09da3e5822b1)
@@ -50,16 +50,17 @@
   # First create the ::nx object system. The internally called methods,
   # which are not defined by in this script, must have method handles
   # included. The methods "create", "configure", "destroy", "move" and
-  # "__objectparameter" are defined in this script (either scripted, or
+  # "__objectcoonfigureparameter" are defined in this script (either scripted, or
   # via alias).
   #
   ::nsf::objectsystem::create ::nx::Object ::nx::Class {
     -class.alloc {__alloc ::nsf::methods::class::alloc}
     -class.create create
     -class.dealloc {__dealloc ::nsf::methods::class::dealloc}
-    -class.objectparameter __objectparameter
+    -class.configureparameter __class_configureparameter
     -class.recreate {__recreate ::nsf::methods::class::recreate}
     -object.configure __configure
+    -object.configureparameter __object_configureparameter
     -object.defaultmethod {defaultmethod ::nsf::methods::object::defaultmethod}
     -object.destroy destroy
     -object.init {init ::nsf::methods::object::init}
@@ -323,7 +324,7 @@
   # process. The real definition is based on slots, which are not
   # available at this point.
 
-  Object protected method __objectparameter {} {;}
+  Object protected method __object_configureparameter {} {;}
 
   ######################################################################
   # Define forward methods
@@ -1495,10 +1496,14 @@
   # Define objectparameter method
   ######################################################################
 
-  Object protected method __objectparameter {} {
+  Object protected method __object_configureparameter {} {
     set slotObjects [nsf::directdispatch [self] ::nsf::methods::object::info::lookupslots -type ::nx::Slot]
     return [::nsf::parameter::specs $slotObjects]
   }
+  Class protected method __class_configureparameter {} {
+    set slotObjects [nsf::directdispatch [self] ::nsf::methods::class::info::slotobjects -closure -type ::nx::Slot]
+    return [::nsf::parameter::specs $slotObjects]
+  }
 }
 
 namespace eval ::nx {