--- a/LineNumberReadStream.st	Sat Dec 30 23:38:54 2017 +0100
+++ b/LineNumberReadStream.st	Wed Jan 10 21:25:24 2018 +0100
@@ -223,7 +223,7 @@
     |answerStream element last|
 
     last := aCollection last.
-    answerStream := WriteStream on:(self contentsSpecies new:100).
+    answerStream := self contentsSpecies writeStream:100.
     [(element := self nextOrNil) notNil] whileTrue:[
         answerStream nextPut:element.
         (element = last and:[answerStream endsBeforePositionWith:aCollection]) ifTrue:[
@@ -235,6 +235,8 @@
         ].
     ].
     ^ answerStream contents
+
+    "Modified: / 10-01-2018 / 18:34:30 / stefan"
 ! !
 
 !LineNumberReadStream class methodsFor:'documentation'!