Index: tests/substdefault.test
===================================================================
diff -u -N -r7f58a3a3dd12990de3dfc8096a85d2341cf02075 -rb6fa800493538a2f179224f7f1717eb70913dd8b
--- tests/substdefault.test	(.../substdefault.test)	(revision 7f58a3a3dd12990de3dfc8096a85d2341cf02075)
+++ tests/substdefault.test	(.../substdefault.test)	(revision b6fa800493538a2f179224f7f1717eb70913dd8b)
@@ -32,16 +32,16 @@
   set ::X 123
   nx::Class create D {
 
-    :property {a {a $::X [set x 4] \t}}
-    :property {b:substdefault {a $::X [set x 4] \t}}
-    :property {c:substdefault,substdefaultoptions=0b111 {a $::X [set x 4] \t}}
-    :property {d:substdefault,substdefaultoptions=0b100 {a $::X [set x 4] \t}}
-    :property {e:substdefault,substdefaultoptions=0b010 {a $::X [set x 4] \t}}
-    :property {f:substdefault,substdefaultoptions=0b001 {a $::X [set x 4] \t}}
-    :property {g:substdefault,substdefaultoptions=0b000 {a $::X [set x 4] \t}}
+    :property {a                    {a $::X [set x 4] \t}}
+    :property {b:substdefault       {a $::X [set x 4] \t}}
+    :property {c:substdefault=0b111 {a $::X [set x 4] \t}}
+    :property {d:substdefault=0b100 {a $::X [set x 4] \t}}
+    :property {e:substdefault=0b010 {a $::X [set x 4] \t}}
+    :property {f:substdefault=0b001 {a $::X [set x 4] \t}}
+    :property {g:substdefault=0b000 {a $::X [set x 4] \t}}
 
-    :public method show {} {
-      return ${:a}-${:b}-${:c}-${:d}-${:e}-${:f}-${:g}
+    :public method show {v} {
+      return [set $v]
     }
 
   }
@@ -50,7 +50,13 @@
 
   #? {::d1 eval :__object_configureparameter} ""
 
-  ? {d1 show} {a $::X [set x 4] \t-a 123 4 	-a 123 4 	-a $::X [set x 4] 	-a 123 [set x 4] \t-a $::X 4 \t-a $::X [set x 4] \t}
+  ? {d1 show :a} {a $::X [set x 4] \t}
+  ? {d1 show :b} {a 123 4 	}
+  ? {d1 show :c} {a 123 4 	}
+  ? {d1 show :d} {a $::X [set x 4] 	}
+  ? {d1 show :e} {a 123 [set x 4] \t}
+  ? {d1 show :f} {a $::X 4 \t}
+  ? {d1 show :g} {a $::X [set x 4] \t}
 
   unset ::X
 }