--- a/Character.st	Sun Jul 21 07:54:48 2019 +0200
+++ b/Character.st	Sun Jul 21 08:28:36 2019 +0200
@@ -1782,14 +1782,19 @@
     ].
 
     self storeOn:aGCOrStream.
-    aGCOrStream nextPutAll:' "16r'.
-    asciivalue printOn:aGCOrStream base:16.
-    aGCOrStream space.
+    
+    aGCOrStream nextPutAll:' "'.
+    asciivalue > 9 ifTrue:[
+        aGCOrStream nextPutAll:'16r'.
+        asciivalue printOn:aGCOrStream base:16.
+        aGCOrStream space.
+    ].    
     asciivalue printOn:aGCOrStream.
     aGCOrStream nextPut:$".
 
     "Modified: / 17-02-2017 / 10:53:26 / stefan"
     "Modified (comment): / 22-02-2017 / 16:49:35 / cg"
+    "Modified: / 21-07-2019 / 08:25:42 / Claus Gittinger"
 !
 
 isLiteral
@@ -1836,15 +1841,17 @@
     ] ifFalse:[
         (self == Character space) ifTrue:[
             special := #space
-        ] ifFalse:[(self == Character cr) ifTrue:[
-            special := #cr.
+        ] ifFalse:[(self == Character lf) ifTrue:[
+            special := #lf.
         ] ifFalse:[(self == Character return) ifTrue:[
             special := #return.
         ] 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:$).
@@ -1858,6 +1865,7 @@
     "Modified: / 23-02-1996 / 23:27:32 / cg"
     "Modified: / 20-01-1998 / 14:10:46 / stefan"
     "Modified: / 27-02-2019 / 15:13:09 / Stefan Vogel"
+    "Modified: / 21-07-2019 / 08:24:22 / Claus Gittinger"
 ! !
 
 !Character methodsFor:'private-accessing'!