--- a/ExternalStream.st Thu Sep 15 15:11:56 2011 +0200
+++ b/ExternalStream.st Thu Sep 15 15:12:35 2011 +0200
@@ -1948,10 +1948,10 @@
|elementSize n|
elementSize := aContainer class elementByteSize.
- n := self nextBytes:nElements*elementSize into:aContainer startingAt:index.
+ n := self nextBytes:nElements*elementSize into:aContainer startingAt:index*elementSize.
^ n // elementSize
- "Modified: / 15-02-2011 / 11:04:22 / cg"
+ "Modified: / 15-09-2011 / 14:00:55 / cg"
!
readOnly
@@ -5706,11 +5706,11 @@
!ExternalStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.343 2011-09-09 07:17:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.344 2011-09-15 13:12:35 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.343 2011-09-09 07:17:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.344 2011-09-15 13:12:35 cg Exp $'
! !
ExternalStream initialize!