--- a/terminals/Xtreams__ExternalWriteStream.st	Sun Jan 15 02:16:21 2012 +0000
+++ b/terminals/Xtreams__ExternalWriteStream.st	Sun Jan 15 02:18:17 2012 +0000
@@ -1,3 +1,5 @@
+'From Smalltalk/X, Version:6.2.1 on 14-01-2012 at 09:10:27 PM'                  !
+
 "{ Package: 'stx:goodies/xtreams/terminals' }"
 
 "{ NameSpace: Xtreams }"
@@ -36,14 +38,14 @@
 !ExternalWriteStream methodsFor:'accessing'!
 
 write: anInteger from: aSequenceableCollection at: startIndex
-	| count wrote |
-	anInteger isZero ifTrue: [^0].
-	count := 0.
-	[count < anInteger] whileTrue:
-		[wrote := destination writeFrom: aSequenceableCollection startingAt: startIndex + count for: anInteger - count.
-		wrote isZero ifTrue: [(Incomplete on: aSequenceableCollection count: count at: startIndex) raise].
-		count := count + wrote].
-	^anInteger
+        | count wrote |
+        anInteger isZero ifTrue: [^0].
+        count := 0.
+        [count < anInteger] whileTrue:
+                [wrote := destination nextPutBytes: anInteger - count from: aSequenceableCollection startingAt: startIndex + count.
+                wrote isZero ifTrue: [(Incomplete on: aSequenceableCollection count: count at: startIndex) raise].
+                count := count + wrote].
+        ^anInteger
 ! !
 
 !ExternalWriteStream methodsFor:'initialize-release'!
@@ -61,11 +63,6 @@
 	contentsSpecies := aClass
 !
 
-flush
-	destination isActive ifFalse: [^self].
-	destination commit
-!
-
 on: anAccessor
 	super on: anAccessor.
 	contentsSpecies := ByteArray