--- a/Association.st Thu Jul 10 14:23:19 2014 +0200
+++ b/Association.st Thu Jul 10 14:23:20 2014 +0200
@@ -140,7 +140,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
].
@@ -184,9 +184,10 @@
!Association class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Association.st,v 1.24 2012-04-24 12:00:50 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Association.st,v 1.25 2014-07-10 12:23:20 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Association.st,v 1.24 2012-04-24 12:00:50 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Association.st,v 1.25 2014-07-10 12:23:20 cg Exp $'
! !
+