Index: generic/predefined.h
===================================================================
diff -u -r15b6823910520e77bfa8c2cf4ea78289af91c28c -r199681097494e7dbacc4e1cc368638a058fec73d
--- generic/predefined.h	(.../predefined.h)	(revision 15b6823910520e77bfa8c2cf4ea78289af91c28c)
+++ generic/predefined.h	(.../predefined.h)	(revision 199681097494e7dbacc4e1cc368638a058fec73d)
@@ -312,14 +312,14 @@
 "array set \"\" [$slot toParameterSyntax]\n"
 "lappend parameterdefinitions -$(oparam)}\n"
 "return $parameterdefinitions}\n"
-"::xotcl2::Object protected method objectparameter {} {\n"
+"::xotcl2::Object protected method objectparameter {{lastparameter arg:initcmd,optional}} {\n"
 "set parameterdefinitions [::xotcl::parametersFromSlots [::xotcl::current object]]\n"
 "if {[::xotcl::objectproperty [::xotcl::current object] class]} {\n"
 "lappend parameterdefinitions -parameter:method,optional}\n"
 "lappend parameterdefinitions \\\n"
 "-noinit:method,optional,noarg \\\n"
 "-volatile:method,optional,noarg \\\n"
-"arg:initcmd,optional\n"
+"{*}$lastparameter\n"
 "return $parameterdefinitions}\n"
 "::xotcl::MetaSlot create ::xotcl::RelationSlot\n"
 "createBootstrapAttributeSlots ::xotcl::RelationSlot {\n"
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
   }