Index: TODO
===================================================================
diff -u -r5ac6229f27005543dfe6bbc7f76356195dedbe4d -r9d0fec2bda60c9541c31cc726737129cec0d1350
--- TODO	(.../TODO)	(revision 5ac6229f27005543dfe6bbc7f76356195dedbe4d)
+++ TODO	(.../TODO)	(revision 9d0fec2bda60c9541c31cc726737129cec0d1350)
@@ -3182,13 +3182,13 @@
 - nsf.c:
   added cmd __db_compile_epoch for compile-epoch introspection
 
- - Mystery solved, why in the script below the interp>compileEpoch is
-   incremented, when D is redefined, but in other cases not.  In the
-   script below the method D.init is compiled by tcl, since it has a
-   trivial body. Therefore, a redefinition of D will remove this
-   compiled body and all its potential usages. Therefore the
-   interp->epoch is incremented. If the body is e.g.  "return", the
-   epoch is not incremented (observed with Tcl 8.5.10)
+- Mystery solved, why in the script below the interp>compileEpoch is
+  incremented, when D is redefined, but in other cases not.  In the
+  script below the method D.init is compiled by tcl, since it has a
+  trivial body. Therefore, a redefinition of D will remove this
+  compiled body and all its potential usages. Therefore the
+  interp->epoch is incremented. If the body is e.g.  "return", the
+  epoch is not incremented (observed with Tcl 8.5.10)
 
 =================================================
 # -*- Tcl -*-
@@ -3235,6 +3235,9 @@
 
 - nsf.c: fixed autoname problem with code from tcl trunk
 
+- disposition.test: 
+  * remove/check exit (see comments in the file)
+
 TODO:
 
  - strange refcounting bug in 8.6b2 bug-is-86.tcl
@@ -3261,7 +3264,6 @@
     # variable uses nsf::is and attribute uses the slot obj. method variable should
     # be changed to use the slotobj as well.
  - disposition.test: 
-    * remove/check exit (see comments in the file)
     * handle exit from eval/inticmd with proper refcounts
 
  - nsf-refcounts on TclNamespace are not correct, when namespaces
Index: tests/disposition.test
===================================================================
diff -u -re2af66aaa55b0cd01358da70cad8a68181c5e20b -r9d0fec2bda60c9541c31cc726737129cec0d1350
--- tests/disposition.test	(.../disposition.test)	(revision e2af66aaa55b0cd01358da70cad8a68181c5e20b)
+++ tests/disposition.test	(.../disposition.test)	(revision 9d0fec2bda60c9541c31cc726737129cec0d1350)
@@ -1138,20 +1138,6 @@
   ? {[C create c -show me] eval {set :msg}} "::c-show-me"
 
   #
-  # TODO: 
-  #
-  #  - Stefan, why is the exit here? is this work in progress?  If it
-  #    is removed, some tests below fail. So, i used "if 0" in the
-  #    meantime...
-  #
-  #  - an exit from the initCmd still leaves some garbage around: some
-  #    refcounts are not correct, see warning message and counters,
-  #    when NSF_MEM_COUNT is turned on.
-  #
-  #exit
-
-  if {0} {
-  #
   # ... with mixin indirection
   #
   
@@ -1163,12 +1149,18 @@
     :public method foo args {
       next;
     }
+    :public method FOO args {
+      error [::nsf::current]-[::nsf::current methodpath]-[::nsf::current method]
+    }
+
   }
 
   C setObjectParams [list [list FOO:alias,noarg ""]]
   C mixin add M
-  ? {C create c} "::c-FOO"
+  ? {C create c} "::c--FOO"
+  C mixin {}
 
+
   # ... at the called object level
 
   Object create ::callee {
@@ -1179,8 +1171,6 @@
 
   ::nsf::method::alias C FOO ::callee
 
-
-
   C setObjectParams [list [list FOO:alias,noarg ""]]
   ? {C create c} "::c" "Defaultmethod of calle is invoked ..."
   C setObjectParams [list [list FOO:alias "foo"]]
@@ -1206,10 +1196,9 @@
   ? {C create c} "::c-FOO" "With mixin ..."
   
   #
-  # ... with filter indirection
+  # ... with filter indirection: tbd
   #
 }
-}
 
 nx::Test case dispo-object-targets {
   Object create obj