--- a/ExternalStream.st	Fri Jan 13 11:58:40 2012 +0100
+++ b/ExternalStream.st	Sat Jan 14 20:05:12 2012 +0100
@@ -1948,10 +1948,10 @@
     |elementSize n|
 
     elementSize := aContainer class elementByteSize.
-    n := self nextBytes:nElements*elementSize into:aContainer startingAt:index*elementSize.
+    n := self nextBytes:nElements*elementSize into:aContainer startingAt:(index-1)*elementSize+1.
     ^ n // elementSize
 
-    "Modified: / 15-09-2011 / 14:00:55 / cg"
+    "Modified: / 14-01-2012 / 19:00:35 / cg"
 !
 
 readOnly
@@ -5706,11 +5706,11 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.347 2012-01-11 15:06:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.348 2012-01-14 19:05:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.347 2012-01-11 15:06:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.348 2012-01-14 19:05:12 cg Exp $'
 ! !
 
 ExternalStream initialize!