diff -r 8734f4b61c44 -r 5f3b16988051 ExternalStream.st --- a/ExternalStream.st Thu Feb 10 12:30:47 2011 +0100 +++ b/ExternalStream.st Tue Feb 15 11:04:34 2011 +0100 @@ -1948,9 +1948,10 @@ |elementSize n| elementSize := aContainer class elementByteSize. - n := self nextBytes:nElements*elementSize into:aContainer startingAt:1. + n := self nextBytes:nElements*elementSize into:aContainer startingAt:index. ^ n // elementSize + "Modified: / 15-02-2011 / 11:04:22 / cg" ! readOnly @@ -5691,11 +5692,11 @@ !ExternalStream class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.341 2010-04-12 19:27:17 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.342 2011-02-15 10:04:34 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.341 2010-04-12 19:27:17 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.342 2011-02-15 10:04:34 cg Exp $' ! ! ExternalStream initialize!