Index: generic/nsfObj.c
===================================================================
diff -u -r5f1fe725b2a884e3c6691c6126da913188938b08 -r68df0e0f7b64227082179246fc4ab296babd2263
--- generic/nsfObj.c	(.../nsfObj.c)	(revision 5f1fe725b2a884e3c6691c6126da913188938b08)
+++ generic/nsfObj.c	(.../nsfObj.c)	(revision 68df0e0f7b64227082179246fc4ab296babd2263)
@@ -128,13 +128,13 @@
 int
 NsfMethodObjSet(
     Tcl_Interp       *UNUSED(interp),	/* Used for error reporting if not NULL. */
-    register Tcl_Obj *objPtr,           /* The object to convert. */
-    Tcl_ObjType      *objectType,
-    void             *context,		/* context (to avoid over-eager sharing) */
-    unsigned int      methodEpoch,	/* methodEpoch */
-    Tcl_Command       cmd,              /* the Tcl command behind the method */
-    NsfClass         *cl,               /* the object/class where the method was defined */
-    unsigned int      flags		/* flags */
+    register Tcl_Obj  *objPtr,          /* The object to convert. */
+    const Tcl_ObjType *objectType,
+    void              *context,		/* context (to avoid over-eager sharing) */
+    unsigned int       methodEpoch,	/* methodEpoch */
+    Tcl_Command        cmd,             /* the Tcl command behind the method */
+    NsfClass          *cl,              /* the object/class where the method was defined */
+    unsigned int       flags		/* flags */
 ) {
   NsfMethodContext *mcPtr;