--- a/Stream.st	Thu Jul 13 13:22:22 2017 +0200
+++ b/Stream.st	Thu Jul 13 14:07:32 2017 +0200
@@ -220,6 +220,7 @@
     ^ self == Stream
 ! !
 
+
 !Stream methodsFor:'Compatibility-Dolphin'!
 
 display:someObject
@@ -239,6 +240,7 @@
     self nextPut:(Character nl)
 ! !
 
+
 !Stream methodsFor:'accessing'!
 
 contents
@@ -4083,6 +4085,15 @@
     "
 !
 
+lf
+    "append a LF to the stream.
+     This is only allowed, if the receiver supports writing."
+
+    self nextPut:(Character lf).
+
+    "Created: / 13-07-2017 / 14:07:09 / cg"
+!
+
 next:count put:anObject
     "put the argument, anObject count times onto the receiver.
      This is only allowed, if the receiver supports writing."