--- a/Parser.st	Tue Sep 08 17:55:29 2009 +0200
+++ b/Parser.st	Tue Sep 08 17:55:59 2009 +0200
@@ -9325,7 +9325,7 @@
         self nextToken.
     ].
 
-    type first isUppercase ifTrue:[
+    type isUppercaseFirst ifTrue:[
         (ns := classToCompileFor nameSpace) notNil ifTrue:[
             cls := ns at:type.
         ].
@@ -9577,7 +9577,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.603 2009-08-13 21:24:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.604 2009-09-08 15:55:59 cg Exp $'
 ! !
 
 Parser initialize!