Index: tests/parameters.test
===================================================================
diff -u -N -r6ef0a130b8e62c427f66603505b8d1bffe35d12f -r25212e40eb097eebcf48d54931bde2bc90e94e69
--- tests/parameters.test	(.../parameters.test)	(revision 6ef0a130b8e62c427f66603505b8d1bffe35d12f)
+++ tests/parameters.test	(.../parameters.test)	(revision 25212e40eb097eebcf48d54931bde2bc90e94e69)
@@ -924,7 +924,7 @@
       return $x
     }
   }
-  ? {s1 foo} 1
+  ? {s1 foo} 1 
   ? {s1 foo 2} 2
 
   ? {S object method foo {a:substdefault} {return 1}} \
@@ -956,7 +956,7 @@
   ? {s1 foo} {can't read "aaa": no such variable}
 
   ? {s1 public object method foo {{a:substdefault [current]}} {return $a}} ::s1::foo
-  ? {s1 foo} ::s1
+  ? {s1 foo} ::s1 "final test"
 }
 
 #######################################################
@@ -979,7 +979,7 @@
     :property -incremental {s3:substdefault "[current]"}
   }
 
-  Bar create ::b
+  ? {Bar create ::b} ::b "create object"
   ? {b cget -s0} {[current]}
   ? {b cget -s1} "::b"
   ? {b cget -s2} "::b"