Index: generic/nsf.c
===================================================================
diff -u -r5f75e1d7749f783de32db2456e015f09e300f8f9 -r8ab7863eb6b0e1a3f5cecad0261cb37ccb8168d5
--- generic/nsf.c	(.../nsf.c)	(revision 5f75e1d7749f783de32db2456e015f09e300f8f9)
+++ generic/nsf.c	(.../nsf.c)	(revision 8ab7863eb6b0e1a3f5cecad0261cb37ccb8168d5)
@@ -726,11 +726,6 @@
 NsfGetClass(Tcl_Interp *interp, CONST char *name) {
   return (Nsf_Class *)GetClassFromString(interp, name);
 }
-extern int
-NsfGetClassFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
-		   Nsf_Class **clPtr, int withUnknown) {
-  return GetClassFromObj(interp, objPtr, (NsfClass **)clPtr, withUnknown);
-}
 extern Nsf_Class *
 NsfIsClass(Tcl_Interp *UNUSED(interp), ClientData clientData) {
   if (clientData && NsfObjectIsClass((NsfObject *)clientData)) {
@@ -1272,6 +1267,14 @@
 }
 
 /*
+ * Version of GetClassFromObj() with external symbol
+ */
+extern int
+NsfGetClassFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
+		   NsfClass **clPtr, int withUnknown) {
+  return GetClassFromObj(interp, objPtr, clPtr, withUnknown);
+}
+/*
  *----------------------------------------------------------------------
  * IsObjectOfType --
  *
Index: generic/nsf.h
===================================================================
diff -u -rbd4aa15282abe386464ef276b78f2708f249f333 -r8ab7863eb6b0e1a3f5cecad0261cb37ccb8168d5
--- generic/nsf.h	(.../nsf.h)	(revision bd4aa15282abe386464ef276b78f2708f249f333)
+++ generic/nsf.h	(.../nsf.h)	(revision 8ab7863eb6b0e1a3f5cecad0261cb37ccb8168d5)
@@ -263,10 +263,6 @@
 extern int
 NsfNoCurrentObjectError(Tcl_Interp *interp, CONST char *what);
 
-extern int
-NsfGetClassFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
-		   Nsf_Class **clPtr, int withUnknown);
-
 #define NSF_LOG_NOTICE 2
 #define NSF_LOG_WARN 1
 
Index: generic/nsfInt.h
===================================================================
diff -u -r67591822465e64d9051583c9aa71f8d3a4ef5c96 -r8ab7863eb6b0e1a3f5cecad0261cb37ccb8168d5
--- generic/nsfInt.h	(.../nsfInt.h)	(revision 67591822465e64d9051583c9aa71f8d3a4ef5c96)
+++ generic/nsfInt.h	(.../nsfInt.h)	(revision 8ab7863eb6b0e1a3f5cecad0261cb37ccb8168d5)
@@ -885,6 +885,10 @@
 		     int objc, Tcl_Obj *CONST objv[]);
 #endif
 
+extern int
+NsfGetClassFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
+		   NsfClass **clPtr, int withUnknown);
+
 int
 NsfObjDispatch(ClientData cd, Tcl_Interp *interp,
 		 int objc, Tcl_Obj *CONST objv[]);
Index: generic/nsfObj.c
===================================================================
diff -u -r67591822465e64d9051583c9aa71f8d3a4ef5c96 -r8ab7863eb6b0e1a3f5cecad0261cb37ccb8168d5
--- generic/nsfObj.c	(.../nsfObj.c)	(revision 67591822465e64d9051583c9aa71f8d3a4ef5c96)
+++ generic/nsfObj.c	(.../nsfObj.c)	(revision 8ab7863eb6b0e1a3f5cecad0261cb37ccb8168d5)
@@ -98,7 +98,7 @@
   /* 
    * Try to resolve unknowns
    */
-  if (NsfGetClassFromObj(interp, nameObj, (Nsf_Class **)&mixin, 1) != TCL_OK) {
+  if (NsfGetClassFromObj(interp, nameObj, &mixin, 1) != TCL_OK) {
     return NsfObjErrType(interp, "mixin", nameObj, "a class as mixin", NULL);
   }