--- a/Character.st	Thu Jul 10 14:23:26 2014 +0200
+++ b/Character.st	Thu Jul 10 14:23:27 2014 +0200
@@ -628,6 +628,7 @@
       or:[ (asciivalue == 247 ) ]]]]]
 ! !
 
+
 !Character methodsFor:'accessing'!
 
 codePoint
@@ -1573,8 +1574,8 @@
 
     "/ 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 and:[aGCOrStream ~~ Transcript]) ifFalse:[
-	^ super displayOn:aGCOrStream
+    (aGCOrStream isStream) ifFalse:[
+        ^ super displayOn:aGCOrStream
     ].
 
     self storeOn:aGCOrStream.
@@ -2884,10 +2885,10 @@
 !Character class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.153 2014-07-09 16:21:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.154 2014-07-10 12:23:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.153 2014-07-09 16:21:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.154 2014-07-10 12:23:27 cg Exp $'
 ! !