--- a/Scanner.st	Fri Apr 25 18:52:21 2003 +0200
+++ b/Scanner.st	Tue May 06 14:15:02 2003 +0200
@@ -1875,7 +1875,6 @@
                 "oops: a single underscore is an old-style assignement"
                 nextChar ~~ $: ifTrue:[
                     self warnOldStyleAssignmentAt:tokenPosition.
-                    source next.
                     tokenType := token := $_.
                     ^ tokenType
                 ]
@@ -2613,7 +2612,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.165 2003-04-09 09:16:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.166 2003-05-06 12:15:02 cg Exp $'
 ! !
 
 Scanner initialize!