--- a/Scanner.st	Tue Apr 19 12:13:07 2005 +0200
+++ b/Scanner.st	Tue Apr 19 15:25:02 2005 +0200
@@ -636,7 +636,7 @@
 !Scanner methodsFor:'accessing'!
 
 comments
-    ^ currentComments
+    ^ currentComments 
 !
 
 exitBlock:aBlock
@@ -666,7 +666,10 @@
 saveComments:aBoolean
     "not yet implemented"
 
-    saveComments := aBoolean
+    saveComments := aBoolean.
+    currentComments isNil ifTrue:[
+        currentComments := #().
+    ]
 
     "Created: 20.4.1996 / 20:03:56 / cg"
     "Modified: 23.5.1997 / 12:14:49 / cg"
@@ -2777,7 +2780,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.195 2005-04-19 09:06:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.196 2005-04-19 13:25:02 cg Exp $'
 ! !
 
 Scanner initialize!