Index: generic/xotcl.c
===================================================================
diff -u -rc0b169840f5afb465740cd0a5ed4e3961c32ba88 -reb2bd44e4ac7f7e859b58d01c5bedd95886daa4a
--- generic/xotcl.c	(.../xotcl.c)	(revision c0b169840f5afb465740cd0a5ed4e3961c32ba88)
+++ generic/xotcl.c	(.../xotcl.c)	(revision eb2bd44e4ac7f7e859b58d01c5bedd95886daa4a)
@@ -8554,7 +8554,12 @@
     if (c == 's' && !strcmp(element, "self")) {
       *out = tcd->obj->cmdName;
     } else if (c == 'p' && !strcmp(element, "proc")) {
-      *out = objv[0];
+      char *methodName = ObjStr(objv[0]);
+      if (*methodName == '.') {
+	*out = Tcl_NewStringObj(methodName + 1, -1);
+      } else {
+	*out = objv[0];
+      }
     } else if (c == '1' && (c1 == '\0' || c1 == ' ')) {
       /*fprintf(stderr, "   nrArgs=%d, subcommands=%d inputarg=%d, objc=%d\n",
 	nrArgs, tcd->nr_subcommands, *inputarg, objc);*/