Index: tests/destroy.test
===================================================================
diff -u -r33d4fb2329d25b2a4e9ba05d312dfde2c73c3409 -r17ad6747e40c1724810371f92f0108b12c1d5284
--- tests/destroy.test	(.../destroy.test)	(revision 33d4fb2329d25b2a4e9ba05d312dfde2c73c3409)
+++ tests/destroy.test	(.../destroy.test)	(revision 17ad6747e40c1724810371f92f0108b12c1d5284)
@@ -190,6 +190,7 @@
 ? "set ::firstDestroy" 0 "firstDestroy called"
 ? "set ::ObjectDestroy" 0 "ObjectDestroy called"
 
+rename o ""
 
 #
 # namespace delete: tcl delays delete until the namespace is not
@@ -334,8 +335,8 @@
 # create an other cmd with the current object's name. 
 # xotcl 1.6 crashed on this test
 #
-set case "redefined current object as proc"
-Test case redefined-current-object-as-proc
+set case "redefine current object as proc"
+Test case redefine-current-object-as-proc
 Object create o
 Class create C -superclass O
 C method destroy {} {incr ::firstDestroy; puts stderr "  *** [current] destroy"; next}
@@ -357,8 +358,8 @@
 ? "set ::firstDestroy" 1 "firstDestroy called"
 ? "set ::ObjectDestroy" 1 "ObjectDestroy called"
 
+rename c1 ""
 
-
 #
 # delete the active class
 #