--- a/CharacterArray.st	Wed Oct 08 17:37:15 2003 +0200
+++ b/CharacterArray.st	Wed Oct 08 18:26:42 2003 +0200
@@ -6406,11 +6406,11 @@
         firstChar := self at:1.
 
         (self size == 1) ifTrue:[
-            ((binopChars includes:firstChar) not) ifTrue:[^ 0].
+            (binopChars includes:firstChar) ifFalse:[^ 0].
             ^ 1
         ].
-        ((binopChars includes:firstChar) not) ifFalse:[
-            ((binopChars includes:(self at:2)) not) ifFalse:[^ 1]
+        (binopChars includes:firstChar) ifTrue:[
+            (binopChars includes:(self at:2)) ifTrue:[^ 1]
         ]
     ].
     ^ self occurrencesOf:$:
@@ -6542,7 +6542,7 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.258 2003-08-19 17:57:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.259 2003-10-08 16:26:42 cg Exp $'
 ! !
 
 CharacterArray initialize!