Index: generic/predefined.h
===================================================================
diff -u -rc74faac63d3cf530ab8fee0fb2bb2226a107cd31 -r6a93cc19b601c6972981b1844c198371deccce28
--- generic/predefined.h	(.../predefined.h)	(revision c74faac63d3cf530ab8fee0fb2bb2226a107cd31)
+++ generic/predefined.h	(.../predefined.h)	(revision 6a93cc19b601c6972981b1844c198371deccce28)
@@ -60,10 +60,10 @@
 "if {$cmdName in [list \"instfilter\" \"instforward\" \"instmixin\" \"instmixinguard\" \"instparams\"]} continue\n"
 "::xotcl::alias ::xotcl2::classInfo $cmdName $cmd}\n"
 "unset cmd\n"
-"Object forward info -onerror ::xotcl::infoError -verbose ::xotcl2::objectInfo %1 {%@2 %self}\n"
-"Class forward  info -onerror ::xotcl::infoError -verbose ::xotcl2::classInfo %1 {%@2 %self}\n"
+"Object forward info -onerror ::xotcl::infoError ::xotcl2::objectInfo %1 {%@2 %self}\n"
+"Class forward  info -onerror ::xotcl::infoError ::xotcl2::classInfo %1 {%@2 %self}\n"
 "::xotcl::dispatch ::xotcl2::classInfo ::xotcl::cmd::Object::forward \\\n"
-"\"-per-object\" -verbose ::xotcl2::objectInfo {%@2 %1}\n"
+"\"-per-object\" ::xotcl2::objectInfo {%@2 %1}\n"
 "proc ::xotcl::infoError msg {\n"
 "regsub -all \" <object>\" $msg \"\" msg\n"
 "regsub -all \" <class>\" $msg \"\" msg\n"
@@ -193,7 +193,6 @@
 "${.domain} invalidateobjectparameter\n"
 "::xotcl::dispatch ${.domain} ::xotcl::cmd::Class::forward \\\n"
 "{*}[expr {${.per-object} ? \"-per-object\" : \"\"}] ${.name} \\\n"
-"-verbose \\\n"
 "${.manager} [list %1 [${.manager} defaultmethods]] %self \\\n"
 "\"%-per-object [info exists .forward-per-object]\" \\\n"
 "%proc}}\n"
@@ -236,7 +235,6 @@
 "::xotcl::InterceptorSlot method get {obj -per-object:switch prop} {\n"
 "::xotcl::relation $obj {*}[expr {${per-object} ? \"-per-object\" : \"\"}] $prop}\n"
 "::xotcl::InterceptorSlot method add {obj -per-object:switch prop value {pos 0}} {\n"
-"puts stderr interceptorslot-add-obj=$obj,per-object=${per-object},prop=$prop,value=$value,pos=$pos\n"
 "if {![set .multivalued]} {\n"
 "error \"Property $prop of ${.domain}->$obj ist not multivalued\"}\n"
 "set perObject [expr {${per-object} ? \"-per-object\" : \"\"}]\n"
@@ -343,7 +341,6 @@
 "set m [::xotcl::ScopedNew new \\\n"
 "-inobject $object -withclass $class -volatile]\n"
 "::xotcl2::Class mixin add $m end\n"
-"puts stderr \"after add $m: ::xotcl2::Class info mixin => [::xotcl2::Class info mixin]\"\n"
 "namespace eval $object $cmds\n"
 "::xotcl2::Class mixin delete $m} else {\n"
 "namespace eval $object $cmds}}\n"
Index: generic/predefined.xotcl
===================================================================
diff -u -rc74faac63d3cf530ab8fee0fb2bb2226a107cd31 -r6a93cc19b601c6972981b1844c198371deccce28
--- generic/predefined.xotcl	(.../predefined.xotcl)	(revision c74faac63d3cf530ab8fee0fb2bb2226a107cd31)
+++ generic/predefined.xotcl	(.../predefined.xotcl)	(revision 6a93cc19b601c6972981b1844c198371deccce28)
@@ -132,10 +132,10 @@
   #Object forward info -onerror ::xotcl::infoError ::xotcl2::objectInfo %1 {%@2 %self}
   #Class  forward info -onerror ::xotcl::infoError ::xotcl2::classInfo %1 {%@2 %self}
 
-  Object forward info -onerror ::xotcl::infoError -verbose ::xotcl2::objectInfo %1 {%@2 %self}
-  Class forward  info -onerror ::xotcl::infoError -verbose ::xotcl2::classInfo %1 {%@2 %self}
+  Object forward info -onerror ::xotcl::infoError ::xotcl2::objectInfo %1 {%@2 %self}
+  Class forward  info -onerror ::xotcl::infoError ::xotcl2::classInfo %1 {%@2 %self}
   ::xotcl::dispatch ::xotcl2::classInfo ::xotcl::cmd::Object::forward \
-      "-per-object" -verbose ::xotcl2::objectInfo {%@2 %1}
+      "-per-object" ::xotcl2::objectInfo {%@2 %1}
 
   proc ::xotcl::infoError msg {
     #puts stderr "INFO ERROR: <$msg>\n$::errorInfo"
@@ -387,7 +387,6 @@
     
     ::xotcl::dispatch ${.domain} ::xotcl::cmd::Class::forward \
         {*}[expr {${.per-object} ? "-per-object" : ""}] ${.name} \
-        -verbose \
         ${.manager} [list %1 [${.manager} defaultmethods]] %self \
         "%-per-object [info exists .forward-per-object]" \
         %proc
@@ -463,7 +462,6 @@
   ::xotcl::relation $obj {*}[expr {${per-object} ? "-per-object" : ""}] $prop
 }
 ::xotcl::InterceptorSlot method add {obj -per-object:switch prop value {pos 0}} {
-  puts stderr interceptorslot-add-obj=$obj,per-object=${per-object},prop=$prop,value=$value,pos=$pos
   if {![set .multivalued]} {
     error "Property $prop of ${.domain}->$obj ist not multivalued"
   }
@@ -653,7 +651,6 @@
     set m [::xotcl::ScopedNew new \
 	       -inobject $object -withclass $class -volatile]
     ::xotcl2::Class mixin add $m end
-    puts stderr "after add $m: ::xotcl2::Class info mixin => [::xotcl2::Class info mixin]"
     namespace eval $object $cmds
     ::xotcl2::Class mixin delete $m
   } else {
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);