Index: tests/disposition.test
===================================================================
diff -u -rf3127511bec503add89e7a691f33213b1999274d -r46c536260f793729feb23fff02cc15e3867ae0ee
--- tests/disposition.test	(.../disposition.test)	(revision f3127511bec503add89e7a691f33213b1999274d)
+++ tests/disposition.test	(.../disposition.test)	(revision 46c536260f793729feb23fff02cc15e3867ae0ee)
@@ -1079,9 +1079,9 @@
     :public method "FOO foo" args {
       append :msg "(1)--[current next]"
       next
-      puts stderr ++++++++++++++++++
+      #puts stderr ++++++++++++++++++
       append :msg "--(3)--[current class]--[current methodpath]--[current]"
-      puts stderr ++++++++++++++++++
+      #puts stderr ++++++++++++++++++
     }
   }
 
@@ -1094,9 +1094,9 @@
   # N+1 |:TclFrame|	
   C setObjectParams [list]
   ? {
-    puts stderr "/ / / / / / / / / / / "
+    #puts stderr "/ / / / / / / / / / / "
     [C create c1] FOO foo; # N
-    puts stderr "/ / / / / / / / / / / "
+    #puts stderr "/ / / / / / / / / / / "
     c1 eval {set :msg}
   } "(1)--::c1--FOO--foo--(3)--::M2--FOO--::c1"