--- a/Scanner.st	Sat Mar 22 16:20:58 1997 +0100
+++ b/Scanner.st	Wed Apr 02 14:03:12 1997 +0200
@@ -943,7 +943,8 @@
             nextChar == (Character cr) ifTrue:[
                 tokenLineNr := tokenLineNr + 1.
             ].
-            peekChar := $.
+            peekChar := nextChar.
+            nextChar := $..
         ]
     ].
     ((nextChar == $e) or:[nextChar == $E]) ifTrue:[
@@ -973,7 +974,7 @@
     ].
     ^ tokenType
 
-    "Modified: 19.7.1996 / 12:23:38 / cg"
+    "Modified: 2.4.1997 / 14:02:09 / cg"
 !
 
 nextPrimitive
@@ -1294,6 +1295,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.61 1997-01-24 09:30:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.62 1997-04-02 12:03:12 cg Exp $'
 ! !
 Scanner initialize!