--- a/test/MCFileInTest.st	Mon Oct 26 17:38:31 2009 +0100
+++ b/test/MCFileInTest.st	Mon Oct 26 18:31:15 2009 +0100
@@ -20,8 +20,12 @@
 !MCFileInTest methodsFor:'running'!
 
 setUp
-	expected _ self mockSnapshot.
-	stream _ RWBinaryOrTextStream on: String new.
+        expected _ self mockSnapshot.
+        Smalltalk isSmalltalkX ifTrue:[
+            stream _ (ReadWriteStream on: String new) binary.
+        ] ifFalse:[
+            stream _ RWBinaryOrTextStream on: String new.
+        ].
 !
 
 tearDown
@@ -36,11 +40,12 @@
 !
 
 assertFileOutFrom: writerClass canBeFiledInWith: aBlock
-	(writerClass on: stream) writeSnapshot: self mockSnapshot.
-	self alterInitialState.
-	self assertSuccessfulLoadWith: aBlock.
-	self mockPackage unload.
-	self assertSuccessfulLoadWith: aBlock.
+self halt.
+        (writerClass on: stream) writeSnapshot: self mockSnapshot.
+        self alterInitialState.
+        self assertSuccessfulLoadWith: aBlock.
+        self mockPackage unload.
+        self assertSuccessfulLoadWith: aBlock.
 !
 
 assertInitializersCalled
@@ -50,20 +55,25 @@
 !
 
 assertSuccessfulLoadWith: aBlock
-	stream reset.
-	aBlock value.
-	self assertNoChange.
-	self assertInitializersCalled.
+self halt.
+        stream reset.
+        aBlock value.
+        self assertNoChange.
+        self assertInitializersCalled.
 !
 
 testStWriter
-	self
-		assertFileOutFrom: MCStWriter
-		canBeFiledInWith: [stream fileIn].
+        self
+                assertFileOutFrom: MCStWriter
+                canBeFiledInWith: [self halt. stream fileIn].
 ! !
 
 !MCFileInTest class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCFileInTest.st,v 1.1 2006-11-22 13:02:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCFileInTest.st,v 1.2 2009-10-26 17:31:15 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCFileInTest.st,v 1.2 2009-10-26 17:31:15 cg Exp $'
 ! !