Index: generic/predefined.h
===================================================================
diff -u -r8ec36a4408ae5e7546b4f16fccfa458a2242cb81 -rbe717fe9ef13e09dcfabf496ca61d75e4c042422
--- generic/predefined.h	(.../predefined.h)	(revision 8ec36a4408ae5e7546b4f16fccfa458a2242cb81)
+++ generic/predefined.h	(.../predefined.h)	(revision be717fe9ef13e09dcfabf496ca61d75e4c042422)
@@ -69,7 +69,7 @@
 "::xotcl::forward Class  forward ::xotcl::forward %self\n"
 "Class protected object method __unknown {name} {}\n"
 "Object public method alias {-objscope:switch methodName cmd} {\n"
-"::xotcl::alias [self] $methodName -per-object \\\n"
+"::xotcl::alias [self] -per-object $methodName \\\n"
 "{*}[expr {${objscope} ? \"-objscope\" : \"\"}] \\\n"
 "$cmd}\n"
 "Class public method alias {-objscope:switch methodName cmd} {\n"
@@ -78,8 +78,8 @@
 "$cmd}\n"
 "Object public method setter {methodName value:optional} {\n"
 "if {[info exists value]} {\n"
-"::xotcl::setter [self] $methodName -per-object $value} else {\n"
-"::xotcl::setter [self] $methodName -per-object}}\n"
+"::xotcl::setter [self] -per-object $methodName $value} else {\n"
+"::xotcl::setter [self] -per-object $methodName}}\n"
 "Class public method setter {methodName value:optional} {\n"
 "if {[info exists value]} {\n"
 "::xotcl::setter [self] $methodName $value} else {\n"