--- a/PositionableStream.st	Tue Feb 18 17:05:48 2020 +0100
+++ b/PositionableStream.st	Tue Feb 18 23:40:17 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -621,21 +623,25 @@
 !PositionableStream methodsFor:'printing & storing'!
 
 printOn:aStream
+    |sz|
+
     aStream 
         nextPutAll:self className; 
         nextPutAll:'(on:'.
-    (collection isString and:[collection size < 80]) ifTrue:[
-        aStream nextPutAll:collection storeString
+    (collection isString and:[(sz := self collectionSize) < 80]) ifTrue:[
+        aStream nextPutAll:(collection copyTo:sz) storeString
     ] ifFalse:[
         aStream nextPutAll:collection classNameWithArticle
     ].
-    aStream nextPutAll:'|'; print:position.
+    aStream nextPut:$|; print:position.
     aStream nextPut:$)
 
     "
       '' readStream printString
       '' writeStream printString
     "
+
+    "Modified: / 18-02-2020 / 23:37:40 / Stefan Vogel"
 ! !
 
 !PositionableStream methodsFor:'private'!