--- a/RegressionTests__ExternalStreamTest.st	Thu Mar 28 10:59:37 2019 +0100
+++ b/RegressionTests__ExternalStreamTest.st	Thu Mar 28 12:19:59 2019 +0100
@@ -57,13 +57,16 @@
     "
      self new testCopyFile1
     "
-!
+! !
+
+!ExternalStreamTest methodsFor:'tests - future (skipped)'!
 
 testPosition1
     |h s ch externalReadStream|
-	
+        
     externalReadStream := (Smalltalk at:#ExternalReadStream).
-    self skipIf:true "externalReadStream isBehavior not" description:'skipped until new stream package is used'.
+    self skipIf:true "externalReadStream isBehavior not" 
+         description:'skipped until new stream package is used'.
 
     self createWithSize10:'xxx3'.
 
@@ -95,13 +98,15 @@
     "
 
     "Modified: / 16-02-2017 / 18:06:38 / stefan"
+    "Modified (format): / 28-03-2019 / 12:18:37 / Claus Gittinger"
 !
 
 testPosition2
     |h s externalReadStream|
 
     externalReadStream := (Smalltalk at:#ExternalReadStream).
-    self skipIf:true "externalReadStream isBehavior not" description:'skipped until new stream package is used'.
+    self skipIf:true "externalReadStream isBehavior not" 
+         description:'skipped until new stream package is used'.
 
     self createWithSize10:'xxx3'.
 
@@ -125,6 +130,7 @@
     "
 
     "Modified: / 16-02-2017 / 18:07:01 / stefan"
+    "Modified (format): / 28-03-2019 / 12:18:44 / Claus Gittinger"
 !
 
 testRead1
@@ -133,7 +139,8 @@
     |h s externalReadStream|
 
     externalReadStream := (Smalltalk at:#ExternalReadStream).
-    self skipIf:true "externalReadStream isBehavior not" description:'skipped until new stream package is used'.
+    self skipIf:true "externalReadStream isBehavior not" 
+         description:'skipped until new stream package is used'.
 
     self createWithSize10:'xxx3'.
 
@@ -153,6 +160,7 @@
     "
 
     "Modified: / 16-02-2017 / 18:07:08 / stefan"
+    "Modified (format): / 28-03-2019 / 12:18:51 / Claus Gittinger"
 !
 
 testRead2
@@ -161,7 +169,8 @@
     |h s externalReadStream|
 
     externalReadStream := (Smalltalk at:#ExternalReadStream).
-    self skipIf:true "externalReadStream isBehavior not" description:'skipped until new stream package is used'.
+    self skipIf:true "externalReadStream isBehavior not"        
+         description:'skipped until new stream package is used'.
 
     self createWithSize10:'xxx3'.
 
@@ -185,6 +194,7 @@
     "
 
     "Modified: / 16-02-2017 / 18:07:16 / stefan"
+    "Modified (format): / 28-03-2019 / 12:18:56 / Claus Gittinger"
 !
 
 testRead3
@@ -193,7 +203,8 @@
     |h s bytesRead externalReadStream|
 
     externalReadStream := (Smalltalk at:#ExternalReadStream).
-    self skipIf:true "externalReadStream isBehavior not" description:'skipped until new stream package is used'.
+    self skipIf:true "externalReadStream isBehavior not" 
+         description:'skipped until new stream package is used'.
 
     self createWithSize10:'xxx3'.
 
@@ -215,13 +226,15 @@
     "
 
     "Modified: / 16-02-2017 / 18:07:21 / stefan"
+    "Modified (format): / 28-03-2019 / 12:19:02 / Claus Gittinger"
 !
 
 testReadWait1
     |h s ok externalReadStream|
 
     externalReadStream := (Smalltalk at:#ExternalReadStream).
-    self skipIf:true "externalReadStream isBehavior not" description:'skipped until new stream package is used'.
+    self skipIf:true "externalReadStream isBehavior not" 
+         description:'skipped until new stream package is used'.
 
     self createWithSize10:'xxx3'.
 
@@ -241,6 +254,7 @@
     "
 
     "Modified: / 16-02-2017 / 18:07:26 / stefan"
+    "Modified (format): / 28-03-2019 / 12:19:05 / Claus Gittinger"
 !
 
 testTiming1
@@ -248,7 +262,8 @@
 
     externalWriteStream := (Smalltalk at:#ExternalWriteStream).
     externalReadStream := (Smalltalk at:#ExternalReadStream).
-    self skipIf:true "externalWriteStream isBehavior not" description:'skipped until new stream package is used'.
+    self skipIf:true "externalWriteStream isBehavior not" 
+         description:'skipped until new stream package is used'.
 
     ('xxx1' asFilename exists) ifTrue:[
         'xxx1' asFilename delete
@@ -288,6 +303,7 @@
     "
 
     "Modified: / 16-02-2017 / 18:07:43 / stefan"
+    "Modified (format): / 28-03-2019 / 12:19:09 / Claus Gittinger"
 !
 
 testTiming2
@@ -295,7 +311,8 @@
 
     externalWriteStream := (Smalltalk at:#ExternalWriteStream).
     externalReadStream := (Smalltalk at:#ExternalReadStream).
-    self skipIf:true "externalWriteStream isBehavior not" description:'skipped until new stream package is used'.
+    self skipIf:true "externalWriteStream isBehavior not" 
+         description:'skipped until new stream package is used'.
 
     ('xxx1' asFilename exists) ifTrue:[
         'xxx1' asFilename delete
@@ -335,13 +352,17 @@
     "
 
     "Modified: / 16-02-2017 / 18:07:56 / stefan"
+    "Modified (format): / 28-03-2019 / 12:19:13 / Claus Gittinger"
 !
 
-testWrite1
+testWriteNewStreams1
+    "new streams (from sv) - as yet unfinished"
+    
     |h s externalWriteStream|
 
     externalWriteStream := (Smalltalk at:#ExternalWriteStream).
-    self skipIf:true "externalWriteStream isBehavior not" description:'skipped until new stream package is used'.
+    self skipIf:true "externalWriteStream isBehavior not" 
+         description:'skipped until new stream package is used'.
 
     ('xxx1' asFilename exists) ifTrue:[
         'xxx1' asFilename delete
@@ -365,14 +386,17 @@
      self new testWrite1
     "
 
-    "Modified: / 16-02-2017 / 18:08:02 / stefan"
+    "Created: / 28-03-2019 / 11:02:34 / Claus Gittinger"
 !
 
-testWrite2
+testWriteNewStreams2
+    "new streams (from sv) - as yet unfinished"
+
     |h s externalWriteStream|
 
     externalWriteStream := (Smalltalk at:#ExternalWriteStream).
-    self skipIf:true "externalWriteStream isBehavior not" description:'skipped until new stream package is used'.
+    self skipIf:true "externalWriteStream isBehavior not" 
+         description:'skipped until new stream package is used'.
 
     ('xxx1' asFilename exists) ifTrue:[
         'xxx1' asFilename delete
@@ -400,14 +424,17 @@
      self new testWrite2
     "
 
-    "Modified: / 16-02-2017 / 18:08:07 / stefan"
+    "Created: / 28-03-2019 / 11:02:41 / Claus Gittinger"
 !
 
-testWrite3
+testWriteNewStreams3
+    "new streams (from sv) - as yet unfinished"
+
     |h s externalWriteStream|
 
     externalWriteStream := (Smalltalk at:#ExternalWriteStream).
-    self skipIf:true "externalWriteStream isBehavior not" description:'skipped until new stream package is used'.
+    self skipIf:true "externalWriteStream isBehavior not" 
+         description:'skipped until new stream package is used'.
 
     ('xxx1' asFilename exists) ifTrue:[
         'xxx1' asFilename delete
@@ -436,7 +463,7 @@
      self new testWrite3
     "
 
-    "Modified: / 16-02-2017 / 18:08:14 / stefan"
+    "Created: / 28-03-2019 / 11:02:43 / Claus Gittinger"
 ! !
 
 !ExternalStreamTest class methodsFor:'documentation'!