Index: generic/xotcl.c
===================================================================
diff -u -r04747ba752ca2b7a4f30586348e39ab04f190da9 -rbf9bae94d157de9bbd4c398f6a3a9a4d93626025
--- generic/xotcl.c	(.../xotcl.c)	(revision 04747ba752ca2b7a4f30586348e39ab04f190da9)
+++ generic/xotcl.c	(.../xotcl.c)	(revision bf9bae94d157de9bbd4c398f6a3a9a4d93626025)
@@ -6383,9 +6383,11 @@
     }
 
     ParamDefsStore(interp, (Tcl_Command)procPtr->cmdPtr, parsedParam.paramDefs);
+#if 0
     if (!withPublic) {
       Tcl_Command_flags((Tcl_Command)procPtr->cmdPtr) |= XOTCL_CMD_PROTECTED_METHOD;
     }
+#endif
   }
   Tcl_PopCallFrame(interp);
 
@@ -10019,7 +10021,7 @@
    * vs. "info method search" vs. "info defined" etc.
    */
   if (withCallprotection == CallprotectionNULL) {
-    withCallprotection = CallprotectionAllIdx;
+    withCallprotection = CallprotectionPublicIdx;
   }
 
   Tcl_InitHashTable(dups, TCL_STRING_KEYS);
@@ -12464,19 +12466,13 @@
 
 /* TODO move me at the right place */
 static int XOTclCMethodMethod(Tcl_Interp *interp, XOTclClass *cl,
-                              int withInner_namespace, int withPer_object, int withPublic,
+                              int withInner_namespace, int withPublic,
                               Tcl_Obj *name, Tcl_Obj *args, Tcl_Obj *body,
                               Tcl_Obj *withPrecondition, Tcl_Obj *withPostcondition) {
-  if (withPer_object) {
-    requireObjNamespace(interp, &cl->object);
-    return MakeMethod(interp, &cl->object, NULL, name, args, body,
+
+  return MakeMethod(interp, &cl->object, cl, name, args, body,
                       withPrecondition, withPostcondition,
                       withPublic, withInner_namespace);
-  } else {
-    return MakeMethod(interp, &cl->object, cl, name, args, body,
-                      withPrecondition, withPostcondition,
-                      withPublic, withInner_namespace);
-  }
 }
 
 static int XOTclCForwardMethod(Tcl_Interp *interp, XOTclClass *cl,