Index: tests/volatile.test
===================================================================
diff -u -r9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0 -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55
--- tests/volatile.test	(.../volatile.test)	(revision 9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0)
+++ tests/volatile.test	(.../volatile.test)	(revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55)
@@ -1,5 +1,6 @@
 # -*- Tcl -*-
 package req nx::test
+
 package prefer latest
 package req XOTcl 2.0
 
@@ -18,11 +19,11 @@
 #
 proc foon {} {
   #puts stderr ====2
-  set c [bar C create c1 -volatile {:method destroy {} {#puts "[self] destroy";next}}]
+  set c [bar C create c1 -volatile {:object method destroy {} {#puts "[self] destroy";next}}]
   ? [list info command $c] "" "foon: $c destroyed too late"
 
   #puts stderr ====3
-  set c [bar C new -volatile {:method destroy {} {#puts "[self] destroy";next}}]
+  set c [bar C new -volatile {:object method destroy {} {#puts "[self] destroy";next}}]
   ? [list info command $c] "" "foon: $c destroyed too late"
 }
 
@@ -67,20 +68,27 @@
 }
 
 D create d1
-nx::Test case methods-methods {
+nx::test case methods-methods {
   d1 foox
   d1 foon
 }
 
-nx::Test case methods-procs {
+nx::test case methods-procs {
   d1 foox2
   d1 foon2
 }
 
 #
 # Call just in tcl procs
 #
-nx::Test case procs-procs {
+nx::test case procs-procs {
   ::foox
   ::foon
-}
\ No newline at end of file
+}
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: