Index: generic/tclAPI.h
===================================================================
diff -u -rc942f4e117d2aa3c8594702e0476a3f73a4147df -rcd12f5a50d870605292d8c957cb2a079f1a17c10
--- generic/tclAPI.h	(.../tclAPI.h)	(revision c942f4e117d2aa3c8594702e0476a3f73a4147df)
+++ generic/tclAPI.h	(.../tclAPI.h)	(revision cd12f5a50d870605292d8c957cb2a079f1a17c10)
@@ -282,7 +282,7 @@
 static int XOTclQualifyObjCmd(Tcl_Interp *interp, Tcl_Obj *name);
 static int XOTclRelationCmd(Tcl_Interp *interp, XOTclObject *object, int relationtype, Tcl_Obj *value);
 static int XOTclSetInstvarCmd(Tcl_Interp *interp, XOTclObject *object, Tcl_Obj *variable, Tcl_Obj *value);
-static int XOTclSetterCmd(Tcl_Interp *interp, XOTclObject *object, int withPer_object, char *methodName);
+static int XOTclSetterCmd(Tcl_Interp *interp, XOTclObject *object, int withPer_object, Tcl_Obj *parameter);
 static int XOTclValuecheckCmd(Tcl_Interp *interp, Tcl_Obj *param, Tcl_Obj *value);
 
 enum {
@@ -1928,10 +1928,10 @@
   } else {
     XOTclObject *object = (XOTclObject *)pc.clientData[0];
     int withPer_object = (int )PTR2INT(pc.clientData[1]);
-    char *methodName = (char *)pc.clientData[2];
+    Tcl_Obj *parameter = (Tcl_Obj *)pc.clientData[2];
 
     parseContextRelease(&pc);
-    return XOTclSetterCmd(interp, object, withPer_object, methodName);
+    return XOTclSetterCmd(interp, object, withPer_object, parameter);
 
   }
 }
@@ -2307,7 +2307,7 @@
 {"::xotcl::setter", XOTclSetterCmdStub, 3, {
   {"object", 1, 0, convertToObject},
   {"-per-object", 0, 0, convertToString},
-  {"methodName", 1, 0, convertToString}}
+  {"parameter", 0, 0, convertToTclobj}}
 },
 {"::xotcl::valuecheck", XOTclValuecheckCmdStub, 2, {
   {"param", 0, 0, convertToTclobj},