Index: generic/nsf.c
===================================================================
diff -u -red6c291a4217ee648c4fb8264ce45c757a51578f -r3b7a544e17d23c11227445e2949b94b953fc312c
--- generic/nsf.c	(.../nsf.c)	(revision ed6c291a4217ee648c4fb8264ce45c757a51578f)
+++ generic/nsf.c	(.../nsf.c)	(revision 3b7a544e17d23c11227445e2949b94b953fc312c)
@@ -16818,6 +16818,16 @@
 }
 
 /*
+objectMethod class NsfOClassMethod {
+  {-argName "class" -required 0 -type tclobj}
+}
+*/
+static int
+NsfOClassMethod(Tcl_Interp *interp, NsfObject *object, Tcl_Obj *classObj) {
+  return NsfRelationCmd(interp, object, RelationtypeClassIdx, classObj);
+}
+
+/*
 objectMethod cleanup NsfOCleanupMethod {
 }
 */
@@ -17027,16 +17037,16 @@
 	  result = ForwardProcessOptions(interp, methodObj,
 					 NULL /*withDefault*/, 0 /*withEarlybinding*/, 
 					 NULL /*withMethodprefix*/, 0 /*withObjframe*/, 
-					 NULL /*withOnerror*/, 1 /*withVerbose*/,
+					 NULL /*withOnerror*/, 0 /*withVerbose*/,
 					 nobjv[0], nobjc-1, nobjv+1, &tcd);
 	  if (result != TCL_OK) {
 	    if (tcd) ForwardCmdDeleteProc((ClientData)tcd);
 	    goto method_arg_done;
 	  }
 
-	  fprintf(stderr, "parameter %s forward spec <%s> After Options obj %s method %s\n", 
+	  /*fprintf(stderr, "parameter %s forward spec <%s> After Options obj %s method %s\n", 
 		  ObjStr(paramPtr->nameObj), ObjStr(forwardSpec), 
-		  ObjectName(object), ObjStr(methodObj));
+		  ObjectName(object), ObjStr(methodObj));*/
 
 	  tcd->object = object;
 	  ov[0] = methodObj;
@@ -17978,6 +17988,16 @@
   return RecreateObject(interp, cl, object, objc, objv);
 }
 
+/*
+classMethod superclass NsfCSuperclassMethod {
+  {-argName "superclasses" -required 0 -type tclobj}
+}
+*/
+static int
+NsfCSuperclassMethod(Tcl_Interp *interp, NsfClass *cl, Tcl_Obj *superclassesObj) {
+  return NsfRelationCmd(interp, &cl->object, RelationtypeSuperclassIdx, superclassesObj);
+}
+
 /***************************
  * End Class Methods
  ***************************/