--- a/Scanner.st	Fri Dec 10 13:08:59 1999 +0100
+++ b/Scanner.st	Fri Dec 10 13:09:47 1999 +0100
@@ -1281,7 +1281,7 @@
 
     (source nextPeek == $=) ifTrue:[
         source next.
-        tokenType := token := $_
+        tokenType := token := #':='
     ] ifFalse:[
         tokenType := token := $:
     ].
@@ -2033,6 +2033,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.112 1999-12-09 09:30:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.113 1999-12-10 12:09:47 cg Exp $'
 ! !
 Scanner initialize!