--- a/PPStream.st	Sat Mar 19 00:12:47 2016 +0100
+++ b/PPStream.st	Wed Nov 14 13:01:14 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/petitparser' }"
 
 "{ NameSpace: Smalltalk }"
@@ -117,7 +119,7 @@
 		ifFalse: [ ^ super printOn: aStream ].
 	aStream
 		nextPutAll: (collection copyFrom: 1 to: position);
-		nextPutAll: '·';
+		nextPutAll: '·';
 		nextPutAll: (collection copyFrom: position + 1 to: readLimit)
 ! !