Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -rf7e340c5779999c9495abbb4a2112057b34e1a97 -r1f7ecfcf5b0643ce05b96405c77d5da7fe10268e
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision f7e340c5779999c9495abbb4a2112057b34e1a97)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 1f7ecfcf5b0643ce05b96405c77d5da7fe10268e)
@@ -24,6 +24,7 @@
     -class.alloc alloc 
     -class.create create
     -class.dealloc dealloc
+    -class.objectparameter objectparameter 
     -class.recreate recreate 
     -class.requireobject __unknown 
     -object.configure configure 
@@ -32,7 +33,6 @@
     -object.destroy destroy 
     -object.init init 
     -object.move move 
-    -object.objectparameter objectparameter 
     -object.residualargs residualargs
     -object.unknown unknown
   }
@@ -367,9 +367,9 @@
   # Method objectparameter, backwards upward compatible. We use
   # here the definition of parametersfromslots from nx.tcl
   #
-  ::xotcl::Object instproc objectparameter {} {
+  ::xotcl::Class instproc objectparameter {} {
     set parameterdefinitions [list]
-    foreach slot [::nsf::dispatch [self] ::nsf::methods::object::info::lookupslots -type ::nx::Slot] {
+    foreach slot [nsf::dispatch [self] ::nsf::methods::class::info::slots -closure -type ::nx::Slot] {
       lappend parameterdefinitions [$slot getParameterSpec]
     }
     lappend parameterdefinitions args