Index: generic/predefined.xotcl
===================================================================
diff -u -r8ec36a4408ae5e7546b4f16fccfa458a2242cb81 -rbe717fe9ef13e09dcfabf496ca61d75e4c042422
--- generic/predefined.xotcl	(.../predefined.xotcl)	(revision 8ec36a4408ae5e7546b4f16fccfa458a2242cb81)
+++ generic/predefined.xotcl	(.../predefined.xotcl)	(revision be717fe9ef13e09dcfabf496ca61d75e4c042422)
@@ -150,7 +150,7 @@
   #   [... info method name <methodName>]
   #
   Object public method alias {-objscope:switch methodName cmd} {
-    ::xotcl::alias [self] $methodName -per-object \
+    ::xotcl::alias [self] -per-object $methodName \
         {*}[expr {${objscope} ? "-objscope" : ""}] \
         $cmd
   }
@@ -164,9 +164,9 @@
   #  
   Object public method setter {methodName value:optional} {
     if {[info exists value]} {
-      ::xotcl::setter [self] $methodName -per-object $value
+      ::xotcl::setter [self] -per-object $methodName $value
     } else {
-      ::xotcl::setter [self] $methodName -per-object
+      ::xotcl::setter [self] -per-object $methodName
     }
   }
   Class public method setter {methodName value:optional} {