--- a/Scanner.st	Sat Feb 22 16:56:35 2014 +0100
+++ b/Scanner.st	Sat Feb 22 23:05:48 2014 +0100
@@ -3387,7 +3387,7 @@
 !
 
 nextUnderline
-    "return a character token"
+    "return either an identifier, or an underline (sometimes an assignment)  token"
 
     parserFlags allowUnderscoreInIdentifier ifTrue:[
         ^ self nextIdentifier
@@ -3667,11 +3667,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.309 2014-02-17 14:12:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.310 2014-02-22 22:05:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.309 2014-02-17 14:12:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.310 2014-02-22 22:05:48 cg Exp $'
 ! !