Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -rcafecba5f922de5329a5db109b697cbf88ae5f1a -rd9344280c05990c0254aa652a08a09da3e5822b1
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision cafecba5f922de5329a5db109b697cbf88ae5f1a)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision d9344280c05990c0254aa652a08a09da3e5822b1)
@@ -56,9 +56,10 @@
     -class.alloc alloc
     -class.create create
     -class.dealloc dealloc
-    -class.objectparameter objectparameter
+    -class.configureparameter __class_configureparameter
     -class.recreate recreate
     -object.configure configure
+    -object.configureparameter __object_configureparameter
     -object.cleanup cleanup
     -object.defaultmethod defaultmethod
     -object.destroy destroy
@@ -405,15 +406,16 @@
   # Method objectparameter, backwards upward compatible. We use
   # here the definition of parametersfromslots from nx.tcl
   #
-  ::xotcl::Object instproc objectparameter {} {
-    set parameterDefinitions [list]
-    set class [nsf::directdispatch [self] ::nsf::methods::object::info::class]
-    foreach slot [nsf::directdispatch $class ::nsf::methods::class::info::slotobjects -closure -type ::nx::Slot] {
-      lappend parameterDefinitions [$slot getParameterSpec]
-    }
+  ::xotcl::Object instproc __object_configureparameter {} {
+    set slotObjects [nsf::directdispatch [self] ::nsf::methods::object::info::lookupslots -type ::nx::Slot]
+    set parameterDefinitions [::nsf::parameter::specs $slotObjects]
     lappend parameterDefinitions args:alias,method=residualargs,args
-    return $parameterDefinitions
   }
+  ::xotcl::Class instproc __class_configureparameter {} {
+    set slotObjects [nsf::directdispatch [self] ::nsf::methods::class::info::slotobjects -closure -type ::nx::Slot]
+    set parameterDefinitions [::nsf::parameter::specs $slotObjects]
+    lappend parameterDefinitions args:alias,method=residualargs,args
+  }
 
   ######################################################################
   # Define default accessors for all parameters
@@ -1125,7 +1127,7 @@
 	  ${:forwardername}
     }
 
-    :public method __objectparameter {} {
+    :public method __object_configureparameter {} {
       set slotObjects [nsf::directdispatch [self] ::nsf::methods::object::info::lookupslots -type ::nx::Slot]
       set parameterDefinitions [::nsf::parameter::specs -nonposargs $slotObjects]
       lappend parameterDefinitions args:alias,method=residualargs,args