Index: generic/nsf.c
===================================================================
diff -u -r64810eae2bba5d76d65e49fc5959ffb1c7fc6a8f -r6c2e8f94be1ba335ff90d4b6b5132c98a9f5c242
--- generic/nsf.c	(.../nsf.c)	(revision 64810eae2bba5d76d65e49fc5959ffb1c7fc6a8f)
+++ generic/nsf.c	(.../nsf.c)	(revision 6c2e8f94be1ba335ff90d4b6b5132c98a9f5c242)
@@ -14170,6 +14170,22 @@
 }
 
 /*
+nsfCmd self NsfSelfCmd {
+}
+*/
+static int
+NsfSelfCmd(Tcl_Interp *interp) {
+  NsfObject *object = GetSelfObj(interp);
+
+  if (object) {
+    Tcl_SetObjResult(interp, object->cmdName);
+    return TCL_OK;
+  } else {
+    return NsfVarErrMsg(interp,  "No current object", (char *) NULL);
+  }
+}
+
+/*
 nsfCmd setvar NsfSetVarCmd {
   {-argName "object" -required 1 -type object}
   {-argName "varname" -required 1 -type tclobj}