--- a/tests/PPLambdaParser.st	Mon Apr 13 14:19:55 2015 +0100
+++ b/tests/PPLambdaParser.st	Mon Apr 13 22:00:44 2015 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:goodies/petitparser/tests' }"
 
+"{ NameSpace: Smalltalk }"
+
 PPCompositeParser subclass:#PPLambdaParser
 	instanceVariableNames:'expression abstraction application variable'
 	classVariableNames:''
@@ -43,11 +45,13 @@
 !PPLambdaParser methodsFor:'productions'!
 
 abstraction
-	^ $\ asParser trim , variable , $. asParser trim , expression ==> [ :node | Array with: node second with: node fourth ]
+	^ $\ asParser trim , variable , $. asParser trim , expression 
+		==> [ :node | Array with: (node at: 2) with: (node at: 4) ]
 !
 
 application
-	^ $( asParser trim , expression , expression , $) asParser trim ==> [ :node | Array with: node second with: node third ]
+	^ $( asParser trim , expression , expression , $) asParser trim 
+			==> [ :node | Array with: (node at: 2) with: (node at: 3) ]
 !
 
 expression