Index: generic/nsf.c
===================================================================
diff -u -r9ec1809a2cf35bba30d1c546dcf92675693108d3 -rf858f142f5fab4f88996b3eb709c3afa55114be9
--- generic/nsf.c	(.../nsf.c)	(revision 9ec1809a2cf35bba30d1c546dcf92675693108d3)
+++ generic/nsf.c	(.../nsf.c)	(revision f858f142f5fab4f88996b3eb709c3afa55114be9)
@@ -17758,8 +17758,12 @@
 			     ? Tcl_NewStringObj("protected", 9)
 			     : Tcl_NewStringObj("public", 6));
   }
-  if (withPer_object) {
-    Tcl_ListObjAppendElement(interp, listObj, Tcl_NewStringObj("class", 5));
+
+  //if (withPer_object) {
+  //  Tcl_ListObjAppendElement(interp, listObj, Tcl_NewStringObj("class", 5));
+  //}
+  if (!NsfObjectIsClass(object) || withPer_object) {
+    Tcl_ListObjAppendElement(interp, listObj, Tcl_NewStringObj("object", 6));
   }
   Tcl_ListObjAppendElement(interp, listObj, Tcl_NewStringObj(registerCmdName, -1));
   Tcl_ListObjAppendElement(interp, listObj, Tcl_NewStringObj(methodName, -1));