--- a/Parser.st	Tue Feb 10 18:09:54 2004 +0100
+++ b/Parser.st	Thu Feb 12 19:39:06 2004 +0100
@@ -1499,10 +1499,10 @@
     "
     parser := self for:(ReadStream on:aString).
     parser ignoreErrors:true.
-    parser nextToken.
     Error 
         handle:[:ex | ]
         do:[
+            parser nextToken.
             sel := parser degeneratedKeywordExpressionForSelector
         ].
     ^ sel
@@ -7418,7 +7418,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.412 2003-10-28 15:11:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.413 2004-02-12 18:39:06 cg Exp $'
 ! !
 
 Parser initialize!