Index: generic/predefined.xotcl
===================================================================
diff -u -r15b6823910520e77bfa8c2cf4ea78289af91c28c -r199681097494e7dbacc4e1cc368638a058fec73d
--- generic/predefined.xotcl	(.../predefined.xotcl)	(revision 15b6823910520e77bfa8c2cf4ea78289af91c28c)
+++ generic/predefined.xotcl	(.../predefined.xotcl)	(revision 199681097494e7dbacc4e1cc368638a058fec73d)
@@ -592,7 +592,7 @@
     return $parameterdefinitions
   }
   
-  ::xotcl2::Object protected method objectparameter {} {
+  ::xotcl2::Object protected method objectparameter {{lastparameter arg:initcmd,optional}} {
     #puts stderr "... objectparameter [::xotcl::current object]"
     set parameterdefinitions [::xotcl::parametersFromSlots [::xotcl::current object]]
     if {[::xotcl::objectproperty [::xotcl::current object] class]} {
@@ -601,7 +601,7 @@
     lappend parameterdefinitions \
         -noinit:method,optional,noarg \
         -volatile:method,optional,noarg \
-        arg:initcmd,optional
+        {*}$lastparameter
     #puts stderr "*** parameter definition for [::xotcl::current object]: $parameterdefinitions"
     return $parameterdefinitions
   }