Index: generic/predefined.h
===================================================================
diff -u -r261afd3f6e91b27144e6614a535518bbec6d5cde -r9474936bd01f25c80caa91f9b3164a3072457f66
--- generic/predefined.h	(.../predefined.h)	(revision 261afd3f6e91b27144e6614a535518bbec6d5cde)
+++ generic/predefined.h	(.../predefined.h)	(revision 9474936bd01f25c80caa91f9b3164a3072457f66)
@@ -152,7 +152,9 @@
 "if {![::xotcl::objectproperty ${slotParent} object]} {\n"
 "::xotcl2::Object create ${slotParent}}\n"
 "return ${slotParent}::$name}\n"
-"::xotcl::MetaSlot method createFromParameterSyntax {target -per-object:switch {-initblock \"\"} value default:optional} {\n"
+"::xotcl::MetaSlot method createFromParameterSyntax {target -per-object:switch\n"
+"{-initblock \"\"}\n"
+"value default:optional} {\n"
 "set opts [list]\n"
 "set colonPos [string first : $value]\n"
 "if {$colonPos == -1} {\n"
@@ -308,7 +310,7 @@
 "array set \"\" [$slot toParameterSyntax]\n"
 "lappend parameterdefinitions -$(oparam)}\n"
 "return $parameterdefinitions}\n"
-"::xotcl2::Object protected method objectparameter {{lastparameter arg:initcmd,optional}} {\n"
+"::xotcl2::Object protected method objectparameter {{lastparameter __initcmd: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"