--- a/tests/PPObjectTest.st	Mon Apr 13 14:19:55 2015 +0100
+++ b/tests/PPObjectTest.st	Mon Apr 13 22:00:44 2015 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:goodies/petitparser/tests' }"
 
+"{ NameSpace: Smalltalk }"
+
 PPAbstractParserTest subclass:#PPObjectTest
 	instanceVariableNames:''
 	classVariableNames:''
@@ -12,13 +14,13 @@
 
 integer
 	^ PPPredicateObjectParser
-		on: [ :each | each isInteger ]
+		on: [ :each | each isKindOf: Integer ]
 		message: 'integer expected'
 !
 
 string
 	^ PPPredicateObjectParser
-		on: [ :each | each isString ]
+		on: [ :each | each isKindOf: String ]
 		message: 'string expected'
 ! !
 
@@ -88,6 +90,11 @@
     ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPObjectTest.st,v 1.4 2014-03-04 14:34:19 cg Exp $'
 !
 
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
 version_SVN
     ^ '$Id: PPObjectTest.st,v 1.4 2014-03-04 14:34:19 cg Exp $'
 ! !