Index: generic/xotcl.c
===================================================================
diff -u -rd70c849219212800fa401c2227796b9a63eadcaf -r7c5c045a38db603c9a506d17a29403065256a845
--- generic/xotcl.c	(.../xotcl.c)	(revision d70c849219212800fa401c2227796b9a63eadcaf)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 7c5c045a38db603c9a506d17a29403065256a845)
@@ -9727,6 +9727,10 @@
       case InfomethodsubcmdTypeIdx:
         Tcl_SetObjResult(interp, Tcl_NewStringObj("scripted",-1));
         break;
+        
+      case InfomethodsubcmdBodyIdx: 
+        ListProcBody(interp, GetTclProcFromCommand(cmd), methodName);
+        break;
 
       case InfomethodsubcmdDefinitionIdx: 
         {