--- a/PPPredicateObjectParser.st	Mon Sep 12 19:48:53 2011 +0200
+++ b/PPPredicateObjectParser.st	Fri Jan 13 12:22:50 2012 +0100
@@ -1,4 +1,4 @@
-"{ Package: 'squeak:petitparser' }"
+"{ Package: 'stx:goodies/petitparser' }"
 
 PPPredicateParser subclass:#PPPredicateObjectParser
 	instanceVariableNames:''
@@ -48,10 +48,10 @@
 !
 
 hex
-	^ self 
-		on: (PPCharSetPredicate on: [ :char | 
-			(char between: $0 and: $9) 
-				or: [ (char between: $a and: $f) 
+	^ self
+		on: (PPCharSetPredicate on: [ :char |
+			(char between: $0 and: $9)
+				or: [ (char between: $a and: $f)
 				or: [ (char between: $A and: $F) ] ] ])
 		message: 'hex digit expected'
 !
@@ -123,7 +123,7 @@
 !
 
 expect: anObject message: aString
-	^ self 
+	^ self
 		on: [ :each | each = anObject ] message: aString
 		negated: [ :each | each ~= anObject ] message: 'no ' , aString
 ! !
@@ -141,9 +141,9 @@
 
 negate
 	"Answer a parser that is the negation of the receiving predicate parser."
-	
-	^ self class 
-		on: negated message: negatedMessage 
+
+	^ self class
+		on: negated message: negatedMessage
 		negated: predicate message: predicateMessage
 ! !
 
@@ -158,5 +158,5 @@
 !PPPredicateObjectParser class methodsFor:'documentation'!
 
 version_SVN
-    ^ '$Id: PPPredicateObjectParser.st,v 1.1 2011-08-18 18:56:17 cg Exp $'
+    ^ '$Id: PPPredicateObjectParser.st,v 1.2 2012-01-13 11:22:50 cg Exp $'
 ! !