--- a/Scanner.st	Tue Oct 04 15:35:26 2011 +0200
+++ b/Scanner.st	Tue Oct 04 15:36:08 2011 +0200
@@ -734,12 +734,11 @@
 !
 
 saveComments:aBoolean
-    "not yet implemented"
-
     saveComments := aBoolean.
 
-    "Created: 20.4.1996 / 20:03:56 / cg"
-    "Modified: 23.5.1997 / 12:14:49 / cg"
+    "Created: / 20-04-1996 / 20:03:56 / cg"
+    "Modified: / 23-05-1997 / 12:14:49 / cg"
+    "Modified (comment): / 04-10-2011 / 15:35:51 / cg"
 !
 
 sourcePosition
@@ -3353,7 +3352,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.267 2011-09-30 10:28:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.268 2011-10-04 13:36:08 cg Exp $'
 ! !
 
 Scanner initialize!