--- a/CharacterArray.st	Fri Aug 30 09:02:57 2019 +0200
+++ b/CharacterArray.st	Fri Aug 30 10:37:00 2019 +0200
@@ -5105,13 +5105,15 @@
 !
 
 allGray
-    "return a text object representing the receiver, but in gray color"
+    "return a text object representing the receiver, but in gray color.
+     This is used so often, that it's worth a utility here"
 
     Text isNil ifTrue:[^ self].
     ^ self withColor:Color gray
 
     "
      Transcript showCR:'hello' asText allBold allGray
+     Transcript showCR:'hello' allBold allGray
      Transcript showCR:'hello' allGray
     "
 !
@@ -5138,6 +5140,20 @@
     "Created: / 13-03-2019 / 21:02:45 / Claus Gittinger"
 !
 
+allRed
+    "return a text object representing the receiver, but in red color.
+     This is used so often, that it's worth a utility here"
+
+    Text isNil ifTrue:[^ self].
+    ^ self withColor:Color red
+
+    "
+     Transcript showCR:'hello' asText allBold allRed
+     Transcript showCR:'hello' allBold allRed
+     Transcript showCR:'hello' allRed
+    "
+!
+
 allStrikedOut
     "return a text object representing the receiver, but all in strikeout"