Index: tests/submethods.test
===================================================================
diff -u -rcd33e8cefca1d52063ebcb6689e46527bb94e33d -r23b10a2c736cf33731b0d7b0381314ddec44f2d6
--- tests/submethods.test	(.../submethods.test)	(revision cd33e8cefca1d52063ebcb6689e46527bb94e33d)
+++ tests/submethods.test	(.../submethods.test)	(revision 23b10a2c736cf33731b0d7b0381314ddec44f2d6)
@@ -161,7 +161,7 @@
     }
   }
   
-  FOO mixin {M1 M0}
+  FOO mixin set {M1 M0}
   FOO create f1
   
   #
@@ -230,7 +230,7 @@
   # defaultcmd has to return also subcmds of other shadowed ensembles
   ? {lsort [o1 info has]} "valid submethods of ::o1 info has: mixin namespace something type"
   ? {lsort [o1 info]} \
-      "valid submethods of ::o1 info: children class configure has info lookup name object parameter parent precedence variable vars"
+      "valid submethods of ::o1 info: children class has info lookup name object parent precedence variable vars"
 
   # returning methodpath in ensemble
   ? {o1 info has something path} "info has something path"
@@ -357,7 +357,7 @@
     :public object method intercept args { 
       incr :x; next; # a "filter next" 
     }
-    :object filter intercept
+    :object filter set intercept
     :FOO bar
     # Rationale: A call count > 2 would indicate that the leaf next
     # triggers a further call into filter ...
@@ -393,19 +393,19 @@
   C create c
   ? {c FOO foo} -::c-::C-
 
-  C mixin [Class create M1 {
+  C mixin set [Class create M1 {
     :public method "FOO foo" {} {
       return "-[current]-[current class][next]"
     }
   }]
 
   ? {c FOO foo} -::c-::M1-::c-::C-
   
-  o object mixin ::M1
+  o object mixin set ::M1
   ? {o FOO foo} -::o-::M1-::o--
 
-  o object mixin {}
-  C mixin {}
+  o object mixin set {}
+  C mixin set {}
 
   #
   # limit [current methodpath] to collect only ensemble methods?
@@ -493,7 +493,7 @@
   # filter-local argv.
 
   Class create Z {
-    :object property -accessor public msg
+    :object property msg
     :method intercept args {
       [current class] eval [list set :msg [list [lrange [current methodpath] 1 end-1] \
 					       [current calledmethod] \
@@ -505,17 +505,17 @@
   
   set c [Z new]
 
-  Z filter intercept
+  Z filter set intercept
 
   foreach selector [list "FOO foo" "BAR BUU boo" "baz"] {
     Z public method $selector {} {;}
     set root [lindex $selector 0]
     set mh [Z info method registrationhandle $root]
     $c {*}$selector
-    ? [list set _ [join [Z msg] -]] -$root-::Z-$mh
+    ? [list set _ [join [Z cget -msg] -]] -$root-::Z-$mh
   }
 
-  Z filter {}  
+  Z filter set {}
 
 }