--- a/test/MCScannerTest.st	Mon Oct 26 16:25:29 2009 +0100
+++ b/test/MCScannerTest.st	Mon Oct 26 16:26:04 2009 +0100
@@ -11,7 +11,11 @@
 !MCScannerTest methodsFor:'asserting'!
 
 assertScans: anArray
-	self assert: (MCScanner scan: anArray printString readStream) = anArray
+        Smalltalk isSmalltalkX ifTrue:[
+            self assert: (MCScanner scan: anArray storeString readStream) = anArray
+        ] ifFalse:[
+            self assert: (MCScanner scan: anArray printString readStream) = anArray
+        ]
 ! !
 
 !MCScannerTest methodsFor:'tests'!
@@ -43,5 +47,9 @@
 !MCScannerTest class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCScannerTest.st,v 1.1 2006-11-22 13:02:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCScannerTest.st,v 1.2 2009-10-26 15:26:04 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCScannerTest.st,v 1.2 2009-10-26 15:26:04 cg Exp $'
 ! !