Index: tests/parameters.test
===================================================================
diff -u -N -r868e7224cd782c8d555fd5e7df7c2d92ba5409a8 -r6ef0a130b8e62c427f66603505b8d1bffe35d12f
--- tests/parameters.test	(.../parameters.test)	(revision 868e7224cd782c8d555fd5e7df7c2d92ba5409a8)
+++ tests/parameters.test	(.../parameters.test)	(revision 6ef0a130b8e62c427f66603505b8d1bffe35d12f)
@@ -517,15 +517,15 @@
 nx::test case subst-default {
 
   nx::Class create D {
-    :property {c 1}
+    :property -accessor public {c 1}
     :property {d 2}
 
     :create d1
 
     :public method bar {
       {-s:substdefault "[current]"}
       {-literal "[current]"}
-      {-c:substdefault "[:c]"}
+      {-c:substdefault "[:c get]"}
       {-d:integer,substdefault "$d"}
     } {
       return $s-$literal-$c-$d
@@ -563,7 +563,7 @@
   D public method bar {
 		{-s:substdefault "[current]"}
 		{-literal "[current]"}
-		{-c:substdefault "[:c]"}
+		{-c:substdefault "[:c get]"}
 		{-d:integer,substdefault "$d"}
 		{-switch:switch}
 		{-optflag}
@@ -576,7 +576,7 @@
 
   ? {D info method args bar} {s literal c d switch optflag x y z} "all args"
   ? {D info method parameters bar} \
-      {{-s:substdefault "[current]"} {-literal "[current]"} {-c:substdefault "[:c]"} {-d:integer,substdefault "$d"} -switch:switch -optflag x y:integer {z 1}} \
+      {{-s:substdefault "[current]"} {-literal "[current]"} {-c:substdefault "[:c get]"} {-d:integer,substdefault "$d"} -switch:switch -optflag x y:integer {z 1}} \
       "query method parameter"