--- a/PPExpressionParser.st	Mon Apr 13 14:19:55 2015 +0100
+++ b/PPExpressionParser.st	Mon Apr 13 22:00:44 2015 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:goodies/petitparser' }"
 
+"{ NameSpace: Smalltalk }"
+
 PPDelegateParser subclass:#PPExpressionParser
 	instanceVariableNames:'operators'
 	classVariableNames:''
@@ -19,7 +21,7 @@
 !
 
 build: aParser prefix: aChoiceParser
-	^ aChoiceParser star , aParser map: [ :ops :term | ops reversed inject: term into: [ :result :operator | operator first value: operator second value: result ] ]
+	^ aChoiceParser star , aParser map: [ :ops :term | ops reverse inject: term into: [ :result :operator | operator first value: operator second value: result ] ]
 !
 
 build: aParser right: aChoiceParser
@@ -113,3 +115,4 @@
 version_SVN
     ^ '§Id: PPExpressionParser.st 2 2010-12-17 18:44:23Z vranyj1 §'
 ! !
+