--- a/RegressionTests__ExternalStreamTest.st	Tue Dec 18 21:14:25 2001 +0100
+++ b/RegressionTests__ExternalStreamTest.st	Tue Dec 18 21:16:42 2001 +0100
@@ -183,7 +183,7 @@
     "
 !
 
-testTiming
+testTiming1
     |h s t|
 
     ('xxx1' asFilename exists) ifTrue:[
@@ -220,7 +220,48 @@
     ].
 
     "
-     self new testTiming
+     self new testTiming1
+    "
+!
+
+testTiming2
+    |h s t|
+
+    ('xxx1' asFilename exists) ifTrue:[
+        'xxx1' asFilename delete
+    ].
+
+    h := OperatingSystem createFileForReadWrite:'xxx1'.
+    s := ExternalWriteStream on:h.
+
+    t := Time millisecondsToRun:[
+        100000 timesRepeat:[
+            s nextPutAll:'0123456789'.
+        ].
+    ].
+    s close.
+    Transcript showCR:'Time to write: ' , t printString.
+
+    self assert:( 'xxx1' asFilename exists ).
+    self assert:( 'xxx1' asFilename fileSize == 1000000 ).
+
+    h := OperatingSystem openFileForRead:'xxx1'.
+    s := ExternalReadStream on:h.
+
+    t := Time millisecondsToRun:[
+        100000 timesRepeat:[
+            self assert:((s next:10) = '0123456789').
+        ].
+    ].
+    s close.
+    Transcript showCR:'Time to read: ' , t printString.
+
+    ('xxx1' asFilename exists) ifTrue:[
+        'xxx1' asFilename delete
+    ].
+
+    "
+     self new testTiming2
     "
 !