--- a/CharacterArray.st	Fri Nov 23 15:12:14 2018 +0100
+++ b/CharacterArray.st	Mon Nov 26 14:23:23 2018 +0100
@@ -2990,7 +2990,7 @@
     |s|
 
     aStringOrCharacter isCharacter ifTrue:[
-        ^ (self size ~~ 0) and:[ (self at:1) = aStringOrCharacter ]
+        ^ (self size ~~ 0) and:[(self at:1) = aStringOrCharacter]
     ].
     (s := self string) ~~ self ifTrue:[
         ^ s startsWith:aStringOrCharacter
@@ -3009,6 +3009,7 @@
 
     "Created: / 12-05-1996 / 15:46:40 / cg"
     "Modified: / 29-06-2018 / 11:27:08 / Claus Gittinger"
+    "Modified (format): / 26-11-2018 / 14:15:31 / Stefan Vogel"
 !
 
 startsWith:aStringOrCharacter caseSensitive:caseSensitive
@@ -3019,9 +3020,15 @@
 
     |s|
 
-    caseSensitive ifTrue:[^ self startsWith:aStringOrCharacter].
+    caseSensitive ifTrue:[
+        ^ self startsWith:aStringOrCharacter
+    ].
     aStringOrCharacter isCharacter ifTrue:[
-        ^ (self size ~~ 0) and:[ (self at:1) asLowercase = aStringOrCharacter asLowercase ]
+        self size == 0 ifTrue:[
+            ^ false.
+        ].
+        s := self at:1.
+        ^ s == aStringOrCharacter or:[s asLowercase = aStringOrCharacter asLowercase]
     ].
     (s := self string) ~~ self ifTrue:[
         ^ s startsWith:aStringOrCharacter caseSensitive:caseSensitive
@@ -3034,6 +3041,7 @@
     "
 
     "Created: / 29-06-2018 / 11:27:04 / Claus Gittinger"
+    "Modified: / 26-11-2018 / 14:18:43 / Stefan Vogel"
 ! !
 
 !CharacterArray methodsFor:'converting'!
@@ -6136,6 +6144,7 @@
 !
 
 printXmlQuotedOn:aStream
+    <resource: #todo>
     "convert aString to a valid XML string
      that can be used for attributes, text, comments an PIs
      TODO: care for 16bit UNICODE string and escape chars ..."