Index: generic/nsf.c
===================================================================
diff -u -r81dee071c9f1895cac2f1ada797a8d74e75c1365 -r07da737bc4c17984c337113e5707cd8739378226
--- generic/nsf.c	(.../nsf.c)	(revision 81dee071c9f1895cac2f1ada797a8d74e75c1365)
+++ generic/nsf.c	(.../nsf.c)	(revision 07da737bc4c17984c337113e5707cd8739378226)
@@ -15609,7 +15609,11 @@
     }
     GetClassFromObj(interp, valueObj, &cl, object->cl);
     if (!cl) return NsfObjErrType(interp, "class", object->cmdName, "a class", NULL);
-    return ChangeClass(interp, object, cl);
+    i = ChangeClass(interp, object, cl);
+    if (i == TCL_OK) {
+      Tcl_SetObjResult(interp, object->cl->object.cmdName);
+    }
+    return i;
 
   case RelationtypeRootclassIdx:
     {