--- a/LookupKey.st	Thu Jul 10 14:23:57 2014 +0200
+++ b/LookupKey.st	Thu Jul 10 14:24:01 2014 +0200
@@ -113,7 +113,7 @@
 
     "/ 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:[
+    (aGCOrStream isStream) ifFalse:[
         ^ super displayOn:aGCOrStream
     ].
 
@@ -135,6 +135,6 @@
 !LookupKey class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LookupKey.st,v 1.11 2013-04-11 12:22:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LookupKey.st,v 1.12 2014-07-10 12:24:01 cg Exp $'
 ! !