Index: generic/nsf.c
===================================================================
diff -u -r679673bb15bf8d19c0c6cf5a928e07f9508e9b98 -rcd33e8cefca1d52063ebcb6689e46527bb94e33d
--- generic/nsf.c	(.../nsf.c)	(revision 679673bb15bf8d19c0c6cf5a928e07f9508e9b98)
+++ generic/nsf.c	(.../nsf.c)	(revision cd33e8cefca1d52063ebcb6689e46527bb94e33d)
@@ -21903,9 +21903,10 @@
     break;
 
   case CurrentoptionMethodpathIdx:
-    Tcl_SetObjResult(interp, NsfMethodNamePath(interp, 
-					       NULL /* use topmost frame */, 
-					       NULL /* exclude leaf */));
+    cscPtr = CallStackGetTopFrame0(interp);
+    Tcl_SetObjResult(interp, NsfMethodNamePath(interp,
+					       NULL /* use topmost frame */,
+					       Tcl_GetCommandName(interp, cscPtr->cmdPtr)));
     break;
 
   case CurrentoptionClassIdx: /* class subcommand */