Index: library/lib/xotcl1.xotcl
===================================================================
diff -u -r48d5751e9aeb6a4f388f6531a9248c1847b22cae -r901ceb8f58714e31d28ed3277923fc69c085d252
--- library/lib/xotcl1.xotcl	(.../xotcl1.xotcl)	(revision 48d5751e9aeb6a4f388f6531a9248c1847b22cae)
+++ library/lib/xotcl1.xotcl	(.../xotcl1.xotcl)	(revision 901ceb8f58714e31d28ed3277923fc69c085d252)
@@ -97,30 +97,20 @@
     return $parameterdefinitions
   }
 
-#   #
-#   # create class and object for nonpositional argument processing
-#   Class create ::xotcl::ParameterType
-#   foreach cmd [info command ::xotcl::cmd::ParameterType::*] {
-#     ::xotcl::alias ::xotcl::ParameterType [namespace tail $cmd] $cmd
-#   }
-#   # register type boolean as checker for "switch"
-#   ::xotcl::alias ::xotcl::ParameterType type=switch ::xotcl::cmd::ParameterType::type=boolean
-#   # create an object for dispatching
-#   ::xotcl::ParameterType create ::xotcl::parameterType
+  #
+  # use parameter definition from xotcl2
+  #
+  ::xotcl::alias ::xotcl::Class parameter ::xotcl::classes::xotcl2::Class::parameter
 
   # We provide a default value for superclass (when no superclass is
   # specified explicitely) and metaclass, in case they should differ
   # from the root classes of the object system.
 
-  ::xotcl::alias ::xotcl::Class parameter ::xotcl::classes::xotcl2::Class::parameter
   ::xotcl::Class parameter {
     {__default_superclass ::xotcl::Object}
     {__default_metaclass ::xotcl::Class}
   }
-  #xotcl::setinstvar ::xotcl::Class __default_superclass ::xotcl::Object
-  #xotcl::setinstvar ::xotcl::Class __default_metaclass ::xotcl::Class
 
-
   ############################################
   # system slots
   ############################################