Index: generic/xotcl.c
===================================================================
diff -u -rae9d35c67c82ca0ae2f92f23c44e1141a91f9870 -r6a93cc19b601c6972981b1844c198371deccce28
--- generic/xotcl.c	(.../xotcl.c)	(revision ae9d35c67c82ca0ae2f92f23c44e1141a91f9870)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 6a93cc19b601c6972981b1844c198371deccce28)
@@ -8543,7 +8543,7 @@
         
         for (i = 1; i < firstPosArg; i++) {
           if (strcmp(firstElementString, ObjStr(objv[i])) == 0) {
-            fprintf(stderr, "We have a MATCH for '%s' oldInputArg %d\n", forwardArgString, *inputArg);
+            /*fprintf(stderr, "We have a MATCH for '%s' oldInputArg %d\n", forwardArgString, *inputArg);*/
             *out = objv[i];
             /* %1 will start at a different place. Proceed if necessary to firstPosArg */
             if (*inputArg < firstPosArg) {
@@ -8570,15 +8570,15 @@
             && Tcl_GetIntFromObj(interp, listElements[1], &insertRequired) == TCL_OK
             && insertRequired) {
           /* no match, but insert of flag is required */
-          fprintf(stderr, "no match, but insert of %s required\n", firstElementString);
+          /*fprintf(stderr, "no match, but insert of %s required\n", firstElementString);*/
           *out = Tcl_NewStringObj(firstElementString,-1);
           *outputincr = 1;
           goto add_to_freelist;
         } else {
           /* no match, no insert of flag required, we skip the
            * forwarder option and output nothing
            */
-          fprintf(stderr, "no match, nrElements %d insert req %d\n", nrElements, insertRequired);
+          /*fprintf(stderr, "no match, nrElements %d insert req %d\n", nrElements, insertRequired);*/
           *outputincr = 0;
         }
       }
@@ -11074,7 +11074,6 @@
           XOTclObjectIsClass(object)
           ) {
         relationtype = RelationtypeClass_mixinIdx;
-        fprintf(stderr, "using class mixin\n");
       }
       break;
     case RelationtypeObject_filterIdx:
@@ -12873,9 +12872,6 @@
   XOTclClassOpt *opt = class->opt;
   int rc;
 
-  fprintf(stderr, "XOTclClassInfoMixinMethod guard %d clo %d pattern '%s'\n",
-          withGuards,withClosure,patternString);
-
   if (withClosure) {
     Tcl_HashTable objTable, *commandTable = &objTable;
     MEM_COUNT_ALLOC("Tcl_InitHashTable", commandTable);