Index: generic/nsf.c
===================================================================
diff -u -r138d0f863712bcafd8732a3a40cef60cc80e8737 -re70316835cf50554ec304bc7ddadea6743be5c81
--- generic/nsf.c	(.../nsf.c)	(revision 138d0f863712bcafd8732a3a40cef60cc80e8737)
+++ generic/nsf.c	(.../nsf.c)	(revision e70316835cf50554ec304bc7ddadea6743be5c81)
@@ -10180,7 +10180,9 @@
 
     if (c == 's' && !strcmp(ForwardArgString, "self")) {
       *out = tcd->object->cmdName;
-    } else if (c == 'p' && !strcmp(ForwardArgString, "proc")) {
+    } else if ((c == 'p' && !strcmp(ForwardArgString, "proc"))
+	       || (c == 'm' && !strcmp(ForwardArgString, "method"))
+	       ) {
       CONST char *methodName = ObjStr(objv[0]);
       /* if we dispatch a method via ".", we do not want to see the
 	 "." in the %proc, e.g. for the interceptor slots (such as