Index: tests/forward.test =================================================================== diff -u -r1af8aba52df547aa435235e6ad307d7b97655de9 -r0585d441caad26de7a81eb2c3c07f00d3f3db256 --- tests/forward.test (.../forward.test) (revision 1af8aba52df547aa435235e6ad307d7b97655de9) +++ tests/forward.test (.../forward.test) (revision 0585d441caad26de7a81eb2c3c07f00d3f3db256) @@ -66,15 +66,14 @@ ########################################### Test case mixin-via-forward { Object create mixin { - :method unknown {m args} {puts stderr ARGS=[current args]; return [concat [current] $m $args]} + :method unknown {m args} {return [concat [current] $m $args]} } Object create obj { :public forward Mixin mixin %1 %self } ? {obj Mixin add M1} [list ::mixin add ::obj M1] - exit ? {catch {obj Mixin}} 1 obj public forward Mixin mixin "%1 {Getter Setter}" %self