--- a/tests/PPObjectTest.st	Fri Oct 03 01:59:10 2014 +0100
+++ b/tests/PPObjectTest.st	Fri Oct 03 02:33:08 2014 +0100
@@ -46,7 +46,7 @@
 			result := continuation value.
 			(result isPetitFailure or: [ result first + result last first ~= result last last ])
 				ifFalse: [ parser parseOn: stream ]
-				ifTrue: [ PPFailure message: 'invalid fibonacci sequence' at: stream position ] ]).
+				ifTrue: [ PPFailure message: 'invalid fibonacci sequence' context: stream ] ]).
 	self assert: parser parse: #(1 1) to: 2.
 	self assert: parser parse: #(1 1 2) to: 3.
 	self assert: parser parse: #(1 1 2 3) to: 5.