--- a/CharacterArray.st	Fri Aug 09 10:22:06 2019 +0200
+++ b/CharacterArray.st	Fri Aug 09 10:52:18 2019 +0200
@@ -8458,7 +8458,7 @@
      The following escapes are generated:
         \'      single quote character
         \dQuote double quote character
-        \r      return character
+        \b      backspace character
         \r      return character
         \n      newline character
         \t      tab character
@@ -8502,6 +8502,8 @@
                     seq := '\r'
                 ] ifFalse:[ ch == Character nl ifTrue:[
                     seq := '\n'
+                ] ifFalse:[ ch == Character backspace ifTrue:[
+                    seq := '\b'
                 ] ifFalse:[ ch == Character tab ifTrue:[
                     seq := '\t'
                 ] ifFalse:[ ch == $\ ifTrue:[
@@ -8517,7 +8519,7 @@
                             seq := '\U',(cp printStringRadix:16 size:8 fill:$0)
                         ]
                     ]
-                ]]]].
+                ]]]]].
                 out nextPutAll:seq
             ].
         ].
@@ -8526,6 +8528,7 @@
 
     "
      'hello\n\tworld' withoutCEscapes.
+     'hello\b\tworld' withoutCEscapes withCEscapes.
      'hello\nworld\na\n\tnice\n\t\tstring' withoutCEscapes withCEscapes.
      ('hello ',(Character value:16r1234),' world') withCEscapes
     "