--- a/RegressionTests__StreamTests.st	Tue Dec 06 14:22:11 2016 +0100
+++ b/RegressionTests__StreamTests.st	Tue Dec 06 14:25:36 2016 +0100
@@ -645,16 +645,27 @@
 
     eolModeOfStream :=
         [:stream |
-            (stream eolMode == #nl) ifTrue:[
+            |eolMode|
+
+            eolMode := stream eolMode.
+            (eolMode == #nl) ifTrue:[
                 lineEnd := String lf.
             ] ifFalse:[
-                (stream eolMode == #crlf) ifTrue:[
+                (eolMode == #crlf) ifTrue:[
                     lineEnd := String crlf.
                 ] ifFalse:[
-                    (stream eolMode == #cr) ifTrue:[
+                    (eolMode == #cr) ifTrue:[
                         lineEnd := String return.
                     ] ifFalse:[
-                        self error
+                        (eolMode == #eot) ifTrue:[
+                            lineEnd := (Character value:4) asString.
+                        ] ifFalse:[
+                            (eolMode == #etx) ifTrue:[
+                                lineEnd := (Character value:3) asString.
+                            ] ifFalse:[
+                                self error
+                            ].
+                        ].
                     ].
                 ].
             ].
@@ -703,13 +714,15 @@
     check value:#nl.
     check value:#crlf.
     check value:#cr.
+    check value:#eot.
+    check value:#etx.
 
     "
      self run:#test40_eolMode
      self new test40_eolMode
     "
 
-    "Modified: / 29-04-2016 / 14:20:12 / cg"
+    "Modified: / 06-12-2016 / 14:25:11 / cg"
 ! !
 
 !StreamTests class methodsFor:'documentation'!