Index: tests/submethods.test
===================================================================
diff -u -rcd33e8cefca1d52063ebcb6689e46527bb94e33d -r85ee1fdb043ed3f82fd272cc004c476c40861fdb
--- tests/submethods.test	(.../submethods.test)	(revision cd33e8cefca1d52063ebcb6689e46527bb94e33d)
+++ tests/submethods.test	(.../submethods.test)	(revision 85ee1fdb043ed3f82fd272cc004c476c40861fdb)
@@ -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] \
@@ -512,7 +512,7 @@
     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 {}