--- a/Interval.st Thu Jul 10 14:23:28 2014 +0200
+++ b/Interval.st Thu Jul 10 14:23:57 2014 +0200
@@ -396,7 +396,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 or:[aGCOrStream == Transcript]) ifTrue:[
+ (aGCOrStream isStream) ifTrue:[
self printOn:aGCOrStream.
^ self.
].
@@ -690,10 +690,10 @@
!Interval class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.56 2014-07-09 16:20:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.57 2014-07-10 12:23:57 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.56 2014-07-09 16:20:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.57 2014-07-10 12:23:57 cg Exp $'
! !