--- a/tests/PPParserTest.st	Mon Apr 13 14:19:55 2015 +0100
+++ b/tests/PPParserTest.st	Mon Apr 13 22:00:44 2015 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:goodies/petitparser/tests' }"
 
+"{ NameSpace: Smalltalk }"
+
 PPAbstractParserTest subclass:#PPParserTest
 	instanceVariableNames:''
 	classVariableNames:''
@@ -178,7 +180,7 @@
 !
 
 testMax
-	| parser |
+	| parser printString suffix |
 	parser := $a asParser max: 2.
 	self assert: parser min equals: 0.
 	self assert: parser max equals: 2.
@@ -195,7 +197,9 @@
 		parse: 'aaaa'
 		to: #($a $a)
 		end: 2.
-	self assert: (parser printString endsWith: '[0, 2]')
+	printString := parser printString.
+	suffix := printString copyFrom: printString size - 5 to: printString size.
+	self assert: suffix = '[0, 2]'
 !
 
 testMaxGreedy
@@ -261,7 +265,7 @@
 !
 
 testMin
-	| parser |
+	| parser printString suffix |
 	parser := $a asParser min: 2.
 	self assert: parser min equals: 2.
 	self assert: parser max > parser min.
@@ -270,7 +274,9 @@
 	self assert: parser parse: 'aa' to: #($a $a).
 	self assert: parser parse: 'aaa' to: #($a $a $a).
 	self assert: parser parse: 'aaaa' to: #($a $a $a $a).
-	self assert: (parser printString endsWith: '[2, *]')
+	printString := parser printString.
+	suffix := printString copyFrom: printString size - 5 to: printString size.
+	self assert: suffix = '[2, *]'
 !
 
 testMinGreedy
@@ -346,7 +352,7 @@
 !
 
 testMinMax
-	| parser |
+	| parser printString suffix |
 	parser := $a asParser min: 2 max: 4.
 	self assert: parser min equals: 2.
 	self assert: parser max equals: 4.
@@ -365,7 +371,9 @@
 		parse: 'aaaaaa'
 		to: #($a $a $a $a)
 		end: 4.
-	self assert: (parser printString endsWith: '[2, 4]')
+	printString := parser printString.
+	suffix := printString copyFrom: printString size - 5 to: printString size.
+	self assert: suffix = '[2, 4]'
 !
 
 testMinMaxGreedy