--- a/CharacterArray.st	Sun Jun 08 09:10:19 2014 +0200
+++ b/CharacterArray.st	Sun Jun 08 10:05:08 2014 +0200
@@ -283,7 +283,6 @@
     "Created: 3.8.1997 / 18:16:40 / cg"
 ! !
 
-
 !CharacterArray class methodsFor:'cleanup'!
 
 lowSpaceCleanup
@@ -327,7 +326,6 @@
     "
 ! !
 
-
 !CharacterArray class methodsFor:'pattern matching'!
 
 matchEscapeCharacter
@@ -725,7 +723,6 @@
     ^ self == CharacterArray
 ! !
 
-
 !CharacterArray methodsFor:'Compatibility-ANSI'!
 
 addLineDelimiters
@@ -2503,16 +2500,19 @@
     "
 !
 
-startsWith:aString
-    "return true, if the receiver starts with something, aString.
+startsWith:aStringOrCharacter
+    "return true, if the receiver starts with something, aStringOrCharacter.
      If the argument is empty, true is returned."
 
     |s|
 
+    aStringOrCharacter isCharacter ifTrue:[
+        ^ (self size > 0) and:[ (self at:1) == aStringOrCharacter ]
+    ].
     (s := self string) ~~ self ifTrue:[
-        ^ s startsWith:aString
+        ^ s startsWith:aStringOrCharacter
     ].
-    ^ super startsWith:aString
+    ^ super startsWith:aStringOrCharacter
 
     "
      'hello world' startsWith:'hello'
@@ -4109,8 +4109,6 @@
 ! !
 
 
-
-
 !CharacterArray methodsFor:'matching - glob expressions'!
 
 compoundMatch:aString
@@ -4794,7 +4792,6 @@
 ! !
 
 
-
 !CharacterArray methodsFor:'padded copying'!
 
 centerPaddedTo:newSize
@@ -5423,7 +5420,6 @@
     "Modified: 17.4.1997 / 12:50:23 / cg"
 ! !
 
-
 !CharacterArray methodsFor:'special string converting'!
 
 expandPlaceholders:escapeCharacter with:argArrayOrDictionary
@@ -6370,7 +6366,6 @@
     "
 ! !
 
-
 !CharacterArray methodsFor:'substring searching'!
 
 findRangeOfString:subString
@@ -6953,15 +6948,14 @@
     ^ aVisitor visitString:self with:aParameter
 ! !
 
-
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.532 2014-05-20 10:41:46 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.533 2014-06-08 08:05:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.532 2014-05-20 10:41:46 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.533 2014-06-08 08:05:08 cg Exp $'
 ! !