--- a/CharacterArray.st	Wed Jul 06 13:54:02 2005 +0200
+++ b/CharacterArray.st	Wed Jul 06 13:54:12 2005 +0200
@@ -3433,7 +3433,7 @@
     (string := self string) ~~ self ifTrue:[
         ^ string contains8BitCharacters
     ].
-    ^ self contains:[:aCharacter | (aCharacter codePoint > 16r7F)].
+    ^ self contains:[:aCharacter | aCharacter codePoint > 16r7F ].
 
     "
      'hello' contains8BitCharacters
@@ -4988,7 +4988,7 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.318 2005-07-06 11:54:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.319 2005-07-06 11:54:12 cg Exp $'
 ! !
 
 CharacterArray initialize!