Index: tests/method-modifiers.tcl
===================================================================
diff -u -re849d060161385466c782e46c19344428934cd7f -r693aa83247d37e11744c0a442ec10b22d218db9f
--- tests/method-modifiers.tcl	(.../method-modifiers.tcl)	(revision e849d060161385466c782e46c19344428934cd7f)
+++ tests/method-modifiers.tcl	(.../method-modifiers.tcl)	(revision 693aa83247d37e11744c0a442ec10b22d218db9f)
@@ -242,10 +242,10 @@
     :attribute {b b1}
     :public attribute {c c1}
     :protected attribute {d d1}
-
+#puts stderr ======
     set X [:object attribute A]
     ? [list set _ $X] "::C::A"
-
+#exit
     # object attribute with default
     :object attribute {B B2}
     :public object attribute {C C2}