Index: tests/method-modifiers.tcl
===================================================================
diff -u -rf69e0909fcb180e1cbcdd316f0a20de1b254af3d -rfbf70aa67bec4deec1078074787aafb8b66b2dde
--- tests/method-modifiers.tcl	(.../method-modifiers.tcl)	(revision f69e0909fcb180e1cbcdd316f0a20de1b254af3d)
+++ tests/method-modifiers.tcl	(.../method-modifiers.tcl)	(revision fbf70aa67bec4deec1078074787aafb8b66b2dde)
@@ -230,34 +230,24 @@
   ? {o bar -y 14 -x 13} "x 13 y 14 {-y 14 -x 13} -- x 13 y 14 {-y 14 -x 13}"
 }
 
-
-
 # 
+# test method attribute with protected/public
+# 
 Test case attribute-method {
 
-  ::nsf::__db_show_stack
-
-puts stderr ======0
   Class create C {
-puts stderr ======A
-    nsf::__db_run_assertions
-puts stderr ======A-done
     set x [:attribute a]
-puts stderr ======B
-    nsf::__db_run_assertions
 
     ? [list set _ $x] "::nsf::classes::C::a"
 
     # attribute with default
     :attribute {b b1}
     :public attribute {c c1}
     :protected attribute {d d1}
+
     set X [:class-object attribute A]
-    puts stderr ======
-    nsf::__db_run_assertions
-puts stderr ======
     ? [list set _ $X] "::C::A"
-#exit
+    
     # class-object attribute with default
     :class-object attribute {B B2}
     :public class-object attribute {C C2}