--- a/Character.st	Fri Feb 17 11:02:06 2017 +0100
+++ b/Character.st	Fri Feb 17 11:02:32 2017 +0100
@@ -601,6 +601,7 @@
     "
 ! !
 
+
 !Character methodsFor:'Compatibility-Dolphin'!
 
 isAlphaNumeric
@@ -1666,15 +1667,17 @@
     "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
     "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
     (aGCOrStream isStream) ifFalse:[
-	^ super displayOn:aGCOrStream
+        ^ super displayOn:aGCOrStream
     ].
 
     self storeOn:aGCOrStream.
     aGCOrStream nextPutAll:' "16r'.
     asciivalue printOn:aGCOrStream base:16.
-    aGCOrStream nextPutAll:' '.
+    aGCOrStream space.
     asciivalue printOn:aGCOrStream.
     aGCOrStream nextPut:$".
+
+    "Modified: / 17-02-2017 / 10:53:26 / stefan"
 !
 
 isLiteral