--- a/Scanner.st	Wed Apr 17 22:40:34 1996 +0200
+++ b/Scanner.st	Sat Apr 20 20:08:54 1996 +0200
@@ -211,6 +211,26 @@
     ^ source position
 ! !
 
+!Scanner methodsFor:'accessing'!
+
+comments
+    ^ currentComments
+
+    "Created: 20.4.1996 / 20:07:01 / cg"
+!
+
+saveComments:aBoolean
+    saveComments := aBoolean
+
+    "Created: 20.4.1996 / 20:03:56 / cg"
+!
+
+sourceStream
+    ^ source
+
+    "Created: 20.4.1996 / 19:59:58 / cg"
+! !
+
 !Scanner methodsFor:'directives'!
 
 parseDirective
@@ -1121,6 +1141,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.39 1996-04-12 16:29:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.40 1996-04-20 18:08:54 cg Exp $'
 ! !
 Scanner initialize!