--- a/test/MCTestCase.st	Mon Oct 26 20:39:02 2009 +0100
+++ b/test/MCTestCase.st	Mon Oct 26 22:52:52 2009 +0100
@@ -54,7 +54,13 @@
 !
 
 compileClass: aClass source: source category: category
-	aClass compileInobtrusively: source classified: category
+    Smalltalk isSmalltalkX ifTrue:[
+        Class withoutUpdatingChangesDo:[
+            aClass compile: source classified: category
+        ].
+        ^ self.
+    ].
+    aClass compileInobtrusively: source classified: category
 !
 
 restoreMocks
@@ -212,5 +218,9 @@
 !MCTestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCTestCase.st,v 1.1 2006-11-22 13:01:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCTestCase.st,v 1.2 2009-10-26 21:52:52 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCTestCase.st,v 1.2 2009-10-26 21:52:52 cg Exp $'
 ! !