--- a/CharacterArray.st	Wed Oct 21 13:43:49 2009 +0200
+++ b/CharacterArray.st	Wed Oct 21 15:40:32 2009 +0200
@@ -1490,6 +1490,7 @@
     ^ true
 ! !
 
+
 !CharacterArray methodsFor:'character searching'!
 
 includesMatchCharacters
@@ -2886,14 +2887,14 @@
 
     |newString firstChar firstCharAsUppercase|
 
-    firstChar := (self at:1).
+    firstChar := (self at:1 ifAbsent:[^ self]).  
     firstCharAsUppercase := firstChar asUppercase.
     firstChar == firstCharAsUppercase ifTrue:[ ^ self].
 
     firstCharAsUppercase bitsPerCharacter > self bitsPerCharacter ifTrue:[
-	newString := firstCharAsUppercase stringSpecies fromString:self.
+        newString := firstCharAsUppercase stringSpecies fromString:self.
     ] ifFalse:[
-	newString := self stringSpecies fromString:self.
+        newString := self stringSpecies fromString:self.
     ].
     newString at:1 put:firstCharAsUppercase.
     ^ newString
@@ -4015,6 +4016,7 @@
 ! !
 
 
+
 !CharacterArray methodsFor:'padded copying'!
 
 centerPaddedTo:newSize
@@ -4547,6 +4549,7 @@
     "Modified: 17.4.1997 / 12:50:23 / cg"
 ! !
 
+
 !CharacterArray methodsFor:'special string converting'!
 
 expandPlaceholdersWith:argArrayOrDictionary
@@ -5704,11 +5707,11 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.416 2009-10-21 11:43:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.417 2009-10-21 13:40:32 sr Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.416 2009-10-21 11:43:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.417 2009-10-21 13:40:32 sr Exp $'
 ! !
 
 CharacterArray initialize!