--- a/Scanner.st	Thu Oct 26 16:26:02 2000 +0200
+++ b/Scanner.st	Thu Oct 26 22:03:25 2000 +0200
@@ -1545,7 +1545,7 @@
             (ch2 == $:) ifFalse:[
                 tokenName := token := string copyWith:nextChar.
                 tokenType := #Keyword.
-                ^ self
+                ^ tokenType
             ].
             peekChar := $:.
             peekChar2 := $:.
@@ -2117,6 +2117,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.123 2000-10-26 14:25:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.124 2000-10-26 20:03:25 cg Exp $'
 ! !
 Scanner initialize!