--- a/tests/PPTokenTest.st	Mon Apr 13 14:19:55 2015 +0100
+++ b/tests/PPTokenTest.st	Mon Apr 13 22:00:44 2015 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:goodies/petitparser/tests' }"
 
+"{ NameSpace: Smalltalk }"
+
 PPAbstractParserTest subclass:#PPTokenTest
 	instanceVariableNames:''
 	classVariableNames:''
@@ -36,7 +38,7 @@
 testPrinting
 	| result |
 	result := PPToken on: 'var'.
-	self assert: (result printString includesSubstring: 'PPToken[1,3]')
+	self assert: result printString includesSubstring: 'PPToken[1,3]'
 !
 
 testSize