--- a/test/MCClassDefinitionTest.st	Mon Oct 26 17:38:14 2009 +0100
+++ b/test/MCClassDefinitionTest.st	Mon Oct 26 17:38:31 2009 +0100
@@ -43,8 +43,9 @@
 testCannotLoad
         | d |
 
-        Smalltalk removeClass:MCMockClassC.
+        Smalltalk removeClassNamed:'MCMockClassC'.
         self deny: (Smalltalk hasClassNamed: 'MCMockClassC').       "/ should not be there initially
+
         d _  self mockClass: 'MCMockClassC' super: 'NotAnObject'.
         self should: [d load] raise: Error.
         self deny: (Smalltalk hasClassNamed: 'MCMockClassC').
@@ -158,9 +159,9 @@
 !MCClassDefinitionTest class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCClassDefinitionTest.st,v 1.2 2009-10-26 16:38:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCClassDefinitionTest.st,v 1.3 2009-10-26 16:38:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCClassDefinitionTest.st,v 1.2 2009-10-26 16:38:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCClassDefinitionTest.st,v 1.3 2009-10-26 16:38:31 cg Exp $'
 ! !