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
Index: tests/methods.test
===================================================================
diff -u -r1af8aba52df547aa435235e6ad307d7b97655de9 -r0585d441caad26de7a81eb2c3c07f00d3f3db256
--- tests/methods.test	(.../methods.test)	(revision 1af8aba52df547aa435235e6ad307d7b97655de9)
+++ tests/methods.test	(.../methods.test)	(revision 0585d441caad26de7a81eb2c3c07f00d3f3db256)
@@ -188,7 +188,6 @@
   ? {o :foo} "::o: methodname ':foo' must not start with a colon" 
   ? {o eval :foo} "::o: unable to dispatch method 'foo'" 
 }
-exit
 
 Test case mixinguards {
   # define a Class C and mixin class M