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"