Index: tests/method-modifiers.tcl
===================================================================
diff -u -r18d4d9c1a99310c3fb9b2f2bed03e9d59fb30d30 -rf69e0909fcb180e1cbcdd316f0a20de1b254af3d
--- tests/method-modifiers.tcl	(.../method-modifiers.tcl)	(revision 18d4d9c1a99310c3fb9b2f2bed03e9d59fb30d30)
+++ tests/method-modifiers.tcl	(.../method-modifiers.tcl)	(revision f69e0909fcb180e1cbcdd316f0a20de1b254af3d)
@@ -234,25 +234,36 @@
 
 # 
 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}
-#puts stderr ======
     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}
     :protected class-object attribute {D D2}
   }
-  
+
   C create c1 -a 1
   ? {c1 a} 1
   ? {c1 b} b1