Index: tests/parameters.tcl
===================================================================
diff -u -r7a6e32605412db15c6b9a1d61ce0a9dfd92bfbf6 -rf69e0909fcb180e1cbcdd316f0a20de1b254af3d
--- tests/parameters.tcl	(.../parameters.tcl)	(revision 7a6e32605412db15c6b9a1d61ce0a9dfd92bfbf6)
+++ tests/parameters.tcl	(.../parameters.tcl)	(revision f69e0909fcb180e1cbcdd316f0a20de1b254af3d)
@@ -590,7 +590,7 @@
 
 
   D public method foo {a:mytype} {
-    puts stderr a=$a
+    return a=$a
   }
   d1 foo 1