Index: generic/predefined.xotcl
===================================================================
diff -u -r6ef3475add453ab5c2d62ca807a545bf4bc0686a -ra98ffcaf356b6d0a1e9d58ae7d0835ed11f56fa3
--- generic/predefined.xotcl	(.../predefined.xotcl)	(revision 6ef3475add453ab5c2d62ca807a545bf4bc0686a)
+++ generic/predefined.xotcl	(.../predefined.xotcl)	(revision a98ffcaf356b6d0a1e9d58ae7d0835ed11f56fa3)
@@ -1127,6 +1127,14 @@
     if {![::nx::core::objectproperty $slot object]} {::nx::Object create $slot}
     ::nx::core::setvar $slot __parameter $arglist
   }
+  ::nx::core::method ::nx::classInfo parameter {class} {
+    set slot ${class}::slot
+    if {![::nx::core::objectproperty $slot object]} {::nx::Object create $slot}
+    if {[::nx::core::existsvar $slot __parameter]} {
+      return [::nx::core::setvar $slot __parameter]
+    }
+    return ""
+  }
 
   ##################################################################
   # now the slots are defined; now we can defines the Objects or