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 {