--- a/tests/PPExtensionTest.st	Mon Apr 13 14:19:55 2015 +0100
+++ b/tests/PPExtensionTest.st	Mon Apr 13 22:00:44 2015 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:goodies/petitparser/tests' }"
 
+"{ NameSpace: Smalltalk }"
+
 PPAbstractParserTest subclass:#PPExtensionTest
 	instanceVariableNames:''
 	classVariableNames:''
@@ -110,14 +112,15 @@
 !PPExtensionTest methodsFor:'testing-stream'!
 
 testStream
-	| stream |
+	| dot stream |
+	dot := (Character codePoint: 183) asString.
 	stream := 'abc' readStream asPetitStream.
 	self assert: stream class equals: PPStream.
-	self assert: stream printString equals: '·abc'.
+	self assert: stream printString equals: dot , 'abc'.
 	self assert: stream peek equals: $a.
 	self assert: stream uncheckedPeek equals: $a.
 	self assert: stream next equals: $a.
-	self assert: stream printString equals: 'a·bc'.
+	self assert: stream printString equals: 'a' , dot , 'bc'.
 	self assert: stream asPetitStream equals: stream
 !