Index: tests/parameters.tcl =================================================================== diff -u -r29ea21bd3f28ea7effaca6039e59a8a3499f8fd8 -rd1ed482555d4d28dbb41fb9ca2723eabb5e01221 --- tests/parameters.tcl (.../parameters.tcl) (revision 29ea21bd3f28ea7effaca6039e59a8a3499f8fd8) +++ tests/parameters.tcl (.../parameters.tcl) (revision d1ed482555d4d28dbb41fb9ca2723eabb5e01221) @@ -438,12 +438,13 @@ } ? {Foo create foo -ints {1 2}} "::foo" ? {Foo create foo -ints {1 a 2}} {invalid value in "1 a 2": expected integer but got "a" for parameter -ints} - + # make slot incremental Foo::slot::ints eval { set :incremental 1 :optimize } + Foo create foo -ints {1 2} ? {foo ints add 0} "0 1 2" ? {foo ints add a} {expected integer but got "a" for parameter value}