--- a/Parser.st	Fri Feb 24 13:43:50 2006 +0100
+++ b/Parser.st	Mon Mar 06 10:00:07 2006 +0100
@@ -2307,7 +2307,7 @@
 !
 
 checkForLowercaseVariableName:aVariableName
-    aVariableName first isUppercase ifTrue:[
+    aVariableName isUppercaseFirst ifTrue:[
         self 
             warning:('variable "' , aVariableName , '" should be lowercase (by convention)')
             position:tokenPosition to:source position1Based - 1.
@@ -3547,7 +3547,7 @@
     boldName := aName allBold.
 
     (requestor isNil or:[requestor isStream]) ifTrue:[
-        aName first isUppercase ifFalse:[
+        aName isUppercaseFirst ifFalse:[
             self showErrorMessage:('Error: ''' , boldName , ''' is undefined') position:pos1.
         ].
         doCorrect := false.
@@ -4873,7 +4873,7 @@
         self nextToken.
         domain := IntegerDomain min:min max:max.
     ] ifFalse:[
-        ((tokenType == #Identifier) and:[token first isUppercase]) ifTrue:[
+        ((tokenType == #Identifier) and:[token isUppercaseFirst]) ifTrue:[
             token = 'Bool' ifTrue:[
                 self nextToken.
                 domain := BooleanDomain new.
@@ -7520,11 +7520,7 @@
     "is it in one of the used namespaces ?"
     usedSpaces := self currentUsedNameSpaces.
     usedSpaces notNil ifTrue:[
-        usedSpaces do:[:aNameSpace |
-            (aNameSpace at:aVariableName) notNil ifTrue:[
-                ^ aNameSpace
-            ]
-        ]
+        ^ usedSpaces detect:[:aNameSpace | (aNameSpace at:aVariableName) notNil] ifNone:nil.
     ].
     ^ nil
 
@@ -8249,7 +8245,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.484 2006-02-21 21:33:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.485 2006-03-06 09:00:07 cg Exp $'
 ! !
 
 Parser initialize!