--- a/ExternalStream.st	Sat Aug 10 13:31:31 2013 +0200
+++ b/ExternalStream.st	Sat Aug 10 13:31:57 2013 +0200
@@ -4270,11 +4270,11 @@
 
 !ExternalStream methodsFor:'positioning'!
 
-position0Based
+position
     self subclassResponsibility
 !
 
-position0Based:index0Based
+position:index0Based
     self subclassResponsibility
 ! !
 
@@ -4980,16 +4980,16 @@
 
     buffer := self contentsSpecies new:4096.
     [self atEnd] whileFalse:[
-	count := self nextAvailableBytes:4096 into:buffer startingAt:1.
-	count ~~ 0 ifTrue:[
-	    answerStream isNil ifTrue:[
-		answerStream := WriteStream with:buffer.
-		answerStream position0Based:count.
-		buffer := self contentsSpecies new:4096.
-	    ] ifFalse:[
-		answerStream nextPutAll:buffer startingAt:1 to:count.
-	    ].
-	].
+        count := self nextAvailableBytes:4096 into:buffer startingAt:1.
+        count ~~ 0 ifTrue:[
+            answerStream isNil ifTrue:[
+                answerStream := WriteStream with:buffer.
+                answerStream position:count.
+                buffer := self contentsSpecies new:4096.
+            ] ifFalse:[
+                answerStream nextPutAll:buffer startingAt:1 to:count.
+            ].
+        ].
     ].
     answerStream isNil ifTrue:[^ self contentsSpecies new].
     ^ answerStream contents
@@ -5764,11 +5764,11 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.371 2013-07-09 11:56:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.372 2013-08-10 11:31:57 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.371 2013-07-09 11:56:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.372 2013-08-10 11:31:57 stefan Exp $'
 ! !