Index: tests/destroytest.xotcl =================================================================== diff -u -rf279bf06b31139084edd5136824a1e2622265e00 -r210eab6d9149846d5d6a6a8e0fa74e232ca5b6de --- tests/destroytest.xotcl (.../destroytest.xotcl) (revision f279bf06b31139084edd5136824a1e2622265e00) +++ tests/destroytest.xotcl (.../destroytest.xotcl) (revision 210eab6d9149846d5d6a6a8e0fa74e232ca5b6de) @@ -6,11 +6,11 @@ ::xotcl::alias ::xotcl2::Object set -objscope ::set Class create O -superclass Object { - .method init {} { + :method init {} { set ::ObjectDestroy 0 set ::firstDestroy 0 } - .method destroy {} { + :method destroy {} { incr ::ObjectDestroy #[my info class] dealloc [self] next