--- a/Scanner.st	Mon Jan 19 12:09:37 2009 +0100
+++ b/Scanner.st	Mon Jan 19 14:46:51 2009 +0100
@@ -3003,7 +3003,7 @@
     anyNonBlank := false.
 
     saveComments ifTrue:[
-        commentStream := WriteStream on:''.
+        commentStream := CharacterWriteStream on:''.
         self beginComment.
     ].
 
@@ -3221,7 +3221,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.244 2009-01-14 22:13:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.245 2009-01-19 13:46:51 cg Exp $'
 ! !
 
 Scanner initialize!