--- a/WriteStream.st	Wed Mar 21 10:05:26 2018 +0100
+++ b/WriteStream.st	Wed Mar 21 10:06:18 2018 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -132,21 +130,21 @@
     |lastIndex|
 
     lastIndex := position.
-    collection size == lastIndex ifFalse:[
-	collection isFixedSize ifTrue:[
-	    "
-	     grow is expensive - return a copy.
-	     (is this what users of writeStream expect ?)
-	    "
-	    collection := collection copyFrom:1 to:lastIndex
-	] ifFalse:[
-	    collection grow:lastIndex
-	]
+    collection size ~~ lastIndex ifTrue:[
+        collection isFixedSize ifTrue:[
+            "
+             grow is expensive - return a copy.
+             (is this what users of writeStream expect ?)
+            "
+            collection := collection copyFrom:1 to:lastIndex
+        ] ifFalse:[
+            collection grow:lastIndex
+        ]
     ].
     ^ collection
 
-    "Modified: / 19.2.1997 / 08:57:28 / stefan"
-    "Modified: / 30.10.1997 / 16:21:23 / cg"
+    "Modified: / 30-10-1997 / 16:21:23 / cg"
+    "Modified: / 20-03-2018 / 16:34:29 / stefan"
 !
 
 last