--- a/Character.st	Fri Aug 09 10:52:18 2019 +0200
+++ b/Character.st	Fri Aug 09 10:52:31 2019 +0200
@@ -1849,13 +1849,15 @@
             special := #lf.
         ] ifFalse:[(self == Character return) ifTrue:[
             special := #return.
+        ] ifFalse:[(self == Character backspace) ifTrue:[
+            special := #backspace.
         ] ifFalse:[(self == Character tab) ifTrue:[
             special := #tab.
         ] ifFalse:[(self == Character esc) ifTrue:[
             special := #esc.
         ] ifFalse:[(self == Character bell) ifTrue:[
             special := #bell.
-        ]]]]]].
+        ]]]]]]].
 
         special notNil ifTrue:[
             aStream nextPutAll:'(Character '; nextPutAll:special; nextPut:$).