Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -rdfaca66a33107320eac62bde6ac8ea15abbcbe83 -re7a27ff80df0f9c20be649e1ea1d0bc55f045739
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision dfaca66a33107320eac62bde6ac8ea15abbcbe83)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision e7a27ff80df0f9c20be649e1ea1d0bc55f045739)
@@ -385,6 +385,7 @@
 
   # "init" must exist on Object. per default it is empty.
   Object instproc init args {
+    ::nsf::object::property [self] allowmethoddispatch 1
     if {![::nsf::current isnextcall] && [llength $args] > 0 && [::nsf::configure debug] > 0} {
       ::nsf::log Warning "Arguments '$args' to constructor of object [self] are most likely not processed"
     }
@@ -464,6 +465,8 @@
   Object create ::xotcl::classInfo
   ::nsf::object::property ::xotcl::objectInfo keepcallerself true
   ::nsf::object::property ::xotcl::classInfo keepcallerself true
+  ::nsf::object::property ::xotcl::objectInfo allowmethoddispatch true
+  ::nsf::object::property ::xotcl::classInfo allowmethoddispatch true
 
   # note, we are using ::xotcl::infoError, defined below
   #Object instforward info -onerror ::nsf::infoError ::xotcl::objectInfo %1 {%@2 %self}