--- a/Scanner.st	Tue Apr 19 15:25:02 2005 +0200
+++ b/Scanner.st	Tue Apr 19 15:55:42 2005 +0200
@@ -2769,6 +2769,10 @@
 
 asString
     ^ commentString.
+!
+
+asStringCollection
+    ^ commentString asStringCollection.
 ! !
 
 !Scanner::DoNotShowCompilerWarningAgainActionQuery class methodsFor:'queries'!
@@ -2780,7 +2784,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.196 2005-04-19 13:25:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.197 2005-04-19 13:55:42 cg Exp $'
 ! !
 
 Scanner initialize!