Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -re75f57c39bdc5455b65317013ed58d2db8d22dbd -reee4785ee9a2e4bad0c615d56d9e1477578e20e5
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision e75f57c39bdc5455b65317013ed58d2db8d22dbd)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision eee4785ee9a2e4bad0c615d56d9e1477578e20e5)
@@ -329,7 +329,11 @@
   }
 
   # "init" must exist on Object. per default it is empty.
-  Object instproc init args {}
+  Object instproc init args {
+    if {[::nsf::current isnextcall] && [llength $args] > 0 && [::nsf::configure debug] > 0} {
+      puts stderr "Warning: arguments '$args' to constructor of object [self] are most likely not processed"
+    }
+  }
 
   Object instproc self {} {::xotcl::self}
 
@@ -564,12 +568,13 @@
     :proc invar {}            {::nsf::assertion [self] object-invar}
 
     :proc methods {
-      -nocmds:switch -noprocs:switch -incontext:switch pattern:optional
+      -nocmds:switch -noprocs:switch -nomixins:switch -incontext:switch pattern:optional
     } {
       set methodtype all
       if {$nocmds} {set methodtype scripted}
       if {$noprocs} {if {$nocmds} {return ""}; set methodtype builtin}
       set cmd [list ::nsf::methods::object::info::lookupmethods -methodtype $methodtype]
+      if {$nomixins} {lappend cmd -nomixins}
       if {$incontext} {lappend cmd -incontext}
       if {[info exists pattern]} {lappend cmd $pattern}
       my {*}$cmd