--- a/PositionableStream.st	Sat Nov 16 22:34:24 2019 +0100
+++ b/PositionableStream.st	Sun Nov 17 00:43:51 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -129,6 +131,7 @@
     ^ self == PositionableStream
 ! !
 
+
 !PositionableStream methodsFor:'Compatibility-Dolphin'!
 
 endChunk
@@ -567,7 +570,16 @@
 !PositionableStream methodsFor:'printing & storing'!
 
 printOn:aStream
-    aStream nextPutAll:self className; nextPutAll:'(on:'; nextPutAll:collection classNameWithArticle; nextPut:$)
+    aStream 
+        nextPutAll:self className; 
+        nextPutAll:'(on:'.
+    (collection isString and:[collection size < 80]) ifTrue:[
+        aStream nextPutAll:collection storeString
+    ] ifFalse:[
+        aStream nextPutAll:collection classNameWithArticle
+    ].
+    aStream nextPutAll:'|'; print:position.
+    aStream nextPut:$)
 
     "
       '' readStream printString