Index: generic/gentclAPI.decls
===================================================================
diff -u -r2f283277aff2bb9488419a4fbe2442a5b17546e5 -rd56d2a8ee3f246c9891783abb09bd820dbc508e4
--- generic/gentclAPI.decls	(.../gentclAPI.decls)	(revision 2f283277aff2bb9488419a4fbe2442a5b17546e5)
+++ generic/gentclAPI.decls	(.../gentclAPI.decls)	(revision d56d2a8ee3f246c9891783abb09bd820dbc508e4)
@@ -97,6 +97,11 @@
   {-argName "variable" -required 1 -type tclobj}
   {-argName "value" -required 0 -type tclobj}
 }
+xotclCmd setter XOTclSetterCmd {
+  {-argName "object" -required 1 -type object}
+  {-argName "methodName" -required 1}
+  {-argName "-per-object" -type switch}
+}
 #
 # object methods
 #
@@ -165,9 +170,6 @@
 objectMethod residualargs XOTclOResidualargsMethod {
   {-argName "args" -type allargs}
 }
-objectMethod setter XOTclOSetterMethod {
-  {-argName "name" -required 1}
-}
 objectMethod uplevel XOTclOUplevelMethod {
   {-argName "args" -type allargs}
 }
@@ -220,7 +222,6 @@
   {-argName "-postcondition" -nrargs 1 -type tclobj}
 }
 classMethod forward XOTclCForwardMethod {
-  {-argName "-per-object" -type switch}
   {-argName "name" -required 1 -type tclobj}
   {-argName "-default" -nrargs 1 -type tclobj}
   {-argName "-earlybinding"}
@@ -237,10 +238,6 @@
   {-argName "name" -required 1 -type tclobj}
   {-argName "args" -type allargs}
 }
-classMethod setter XOTclCSetterMethod {
-  {-argName "-per-object" -type switch}
-  {-argName "name" -required 1}
-}
 #
 # check methods
 #