Index: tests/forward.test
===================================================================
diff -u -re02cb00ae815bd6f8561a6a03fceacc13fd91903 -r1af8aba52df547aa435235e6ad307d7b97655de9
--- tests/forward.test	(.../forward.test)	(revision e02cb00ae815bd6f8561a6a03fceacc13fd91903)
+++ tests/forward.test	(.../forward.test)	(revision 1af8aba52df547aa435235e6ad307d7b97655de9)
@@ -66,14 +66,15 @@
 ###########################################
 Test case mixin-via-forward {
     Object create mixin {
-	:method unknown {m args} {return [concat [current] $m $args]}
+      :method unknown {m args} {puts stderr ARGS=[current 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