Index: library/nx/nx.tcl
===================================================================
diff -u -rb6fa800493538a2f179224f7f1717eb70913dd8b -ra2762d8dfea0594bb897957589a6e7a2e63147bc
--- library/nx/nx.tcl	(.../nx.tcl)	(revision b6fa800493538a2f179224f7f1717eb70913dd8b)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision a2762d8dfea0594bb897957589a6e7a2e63147bc)
@@ -1556,14 +1556,18 @@
   # Define objectparameter method
   ######################################################################
 
-  Object protected method __object_configureparameter {} {
+  puts stderr ---[join [info commands ::nsf::classes::nx::Object::*] "\n"]
+  
+  set h [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 {} {
+  }]
+  puts >>>>>>>>>>>>$h
+  set h [Class protected method __class_configureparameter {} {
     set slotObjects [nsf::directdispatch [self] ::nsf::methods::class::info::slotobjects -closure -type ::nx::Slot]
     return [::nsf::parameter::specs $slotObjects]
-  }
+  }]
+  puts >>>>>>2>>>>>>$h
 }
 
 namespace eval ::nx {