--- a/ReadStream.st Tue Mar 04 13:38:08 2014 +0100
+++ b/ReadStream.st Tue Mar 04 13:40:49 2014 +0100
@@ -56,6 +56,7 @@
! !
+
!ReadStream methodsFor:'converting'!
readStream
@@ -221,7 +222,7 @@
|answer|
- self contentsSpecies = collection class ifTrue:[
+ self contentsSpecies == collection class ifTrue:[
((position + count) > readLimit) ifFalse:[
answer := collection copyFrom:position+1 to:position+count.
position := position+count.
@@ -853,10 +854,10 @@
!ReadStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.73 2013-12-02 19:06:35 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.74 2014-03-04 12:40:49 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.73 2013-12-02 19:06:35 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.74 2014-03-04 12:40:49 stefan Exp $'
! !