--- a/CharacterArray.st	Mon Apr 11 11:17:14 2011 +0200
+++ b/CharacterArray.st	Tue Apr 12 16:15:40 2011 +0200
@@ -1508,7 +1508,6 @@
 ! !
 
 
-
 !CharacterArray methodsFor:'character searching'!
 
 includesMatchCharacters
@@ -4727,7 +4726,6 @@
     "Modified: 17.4.1997 / 12:50:23 / cg"
 ! !
 
-
 !CharacterArray methodsFor:'special string converting'!
 
 expandPlaceholdersWith:argArrayOrDictionary
@@ -5659,7 +5657,7 @@
 
     |binopChars|
 
-    (self size > 3) ifTrue:[^ false].
+    (self size > Scanner maxBinarySelectorSize) ifTrue:[^ false].
 
     binopChars := Scanner binarySelectorCharacters.
     ^ (self conform:[:char | (binopChars includes:char)])
@@ -5903,11 +5901,11 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.448 2011-04-07 11:23:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.449 2011-04-12 14:15:40 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.448 2011-04-07 11:23:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.449 2011-04-12 14:15:40 stefan Exp $'
 ! !
 
 CharacterArray initialize!