--- 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:$).