Index: generic/xotcl.c
===================================================================
diff -u -r666f7ad2cb2562f3d62fc9aea54efb9b0826f6b0 -raef0c8541f096447f838953d4f4de16e19dbf6c1
--- generic/xotcl.c	(.../xotcl.c)	(revision 666f7ad2cb2562f3d62fc9aea54efb9b0826f6b0)
+++ generic/xotcl.c	(.../xotcl.c)	(revision aef0c8541f096447f838953d4f4de16e19dbf6c1)
@@ -9534,12 +9534,21 @@
       withPer_object = 1;
     }
 
-    if (subcmd == InfomethodsubcmdNameIdx) {
-      resultObj = Tcl_NewStringObj(withPer_object ? "" : "::xotcl::classes", -1);
-      Tcl_AppendObjToObj(resultObj, object->cmdName);
-      Tcl_AppendStringsToObj(resultObj, "::", methodName, (char *) NULL);
-      Tcl_SetObjResult(interp, resultObj);
-      return TCL_OK;
+    switch (subcmd) {
+    case InfomethodsubcmdNameIdx: 
+      {
+        resultObj = Tcl_NewStringObj(withPer_object ? "" : "::xotcl::classes", -1);
+        Tcl_AppendObjToObj(resultObj, object->cmdName);
+        Tcl_AppendStringsToObj(resultObj, "::", methodName, (char *) NULL);
+        Tcl_SetObjResult(interp, resultObj);
+        return TCL_OK;
+      }
+
+    case InfomethodsubcmdParameterIdx:
+      {
+        Tcl_Command importedCmd = GetOriginalCommand(cmd);
+        return ListCmdParams(interp, importedCmd, methodName, 0);
+      }
     }
 
     /*