--- a/PositionableStream.st	Wed Jan 10 10:32:58 2018 +0100
+++ b/PositionableStream.st	Wed Jan 10 21:23:19 2018 +0100
@@ -928,7 +928,7 @@
     |answerStream element last|
 
     last := aCollection last.
-    answerStream := WriteStream on:(self contentsSpecies new:100).
+    answerStream := self contentsSpecies writeStream.
     [(element := self nextOrNil) notNil] whileTrue:[
         answerStream nextPut:element.
         (element = last and:[answerStream endsBeforePositionWith:aCollection]) ifTrue:[
@@ -963,8 +963,8 @@
      Transcript show:'<'; show:(s upToEnd); showCR:'>'. 
     "
 
-    "Modified: / 12.1.1998 / 22:06:42 / cg"
-    "Created: / 12.1.1998 / 22:07:01 / cg"
+    "Created: / 12-01-1998 / 22:07:01 / cg"
+    "Modified: / 10-01-2018 / 18:30:07 / stefan"
 !
 
 upToEnd