--- a/RegressionTests__StreamTests.st	Fri Apr 29 14:04:14 2016 +0200
+++ b/RegressionTests__StreamTests.st	Fri Apr 29 14:06:07 2016 +0200
@@ -638,6 +638,22 @@
      self run:#test31_readWriteBinaryIntegers
      self new test31_readWriteBinaryIntegers
     "
+!
+
+test40_eolMode
+    |stream|
+    
+    stream := 'testfile' asFilename writeStream.
+    OperatingSystem isUNIXlike ifTrue:[
+        self assert:(stream eolMode == #nl).
+    ] ifFalse:[
+        self assert:(stream eolMode == #crnl).
+    ].
+    
+    "
+     self run:#test40_eolMode
+     self new test40_eolMode
+    "
 ! !
 
 !StreamTests class methodsFor:'documentation'!