Index: tests/disposition.test
===================================================================
diff -u -r4f092237cb67473c0364fb761340d62a3a774a1a -r17b63f15e327dd62f8dcd5e5419b7096b7d858ce
--- tests/disposition.test	(.../disposition.test)	(revision 4f092237cb67473c0364fb761340d62a3a774a1a)
+++ tests/disposition.test	(.../disposition.test)	(revision 17b63f15e327dd62f8dcd5e5419b7096b7d858ce)
@@ -356,7 +356,7 @@
   ? {[S new -foo [list 0 1]] eval {info exists :foo}} \
       "expected integer but got \"0 1\" for parameter \"x\""
   ? {[S new -foo [list]] eval {info exists :foo}} \
-      "invalid parameter value for -foo: list is not allowed to be empty"
+      "invalid value for parameter '-foo': list is not allowed to be empty"
   ? {[S new -foo 5] eval {info exists :foo}} 1
   ? {[S new -foo f] eval {info exists :foo}} \
       "invalid value in \"f\": expected integer but got \"f\" for parameter \"-foo\""
@@ -515,12 +515,10 @@
     }
     :public method foo {args} {
       set :foo $args
-      #puts stderr FOO
       return $args
     }
     :public method bar {args} {
       set :bar $args
-      #puts stderr BAR
       return $args
     }
   }