--- a/Scanner.st	Wed Oct 06 15:28:14 1999 +0200
+++ b/Scanner.st	Wed Oct 06 15:58:56 1999 +0200
@@ -1594,7 +1594,7 @@
                 value := value
                          * (tokenRadix raisedToInteger:((Integer readFrom:source) * s)).
             ].
-            nextChar := source nextPeek.
+            nextChar := source peek.
         ].
     ].
     nextChar == $- ifTrue:[
@@ -2023,6 +2023,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.108 1999-10-06 13:28:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.109 1999-10-06 13:58:56 cg Exp $'
 ! !
 Scanner initialize!