Index: tests/volatile.test
===================================================================
diff -u -r9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0 -rf858f142f5fab4f88996b3eb709c3afa55114be9
--- tests/volatile.test	(.../volatile.test)	(revision 9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0)
+++ tests/volatile.test	(.../volatile.test)	(revision f858f142f5fab4f88996b3eb709c3afa55114be9)
@@ -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"
 }