--- a/PPWrappingParser.st	Fri Oct 03 01:59:10 2014 +0100
+++ b/PPWrappingParser.st	Fri Oct 03 02:33:08 2014 +0100
@@ -10,8 +10,8 @@
 
 !PPWrappingParser methodsFor:'parsing'!
 
-parseOn: aStream
-	^ block value: aStream value: [ parser parseOn: aStream ]
+parseOn: aPPContext
+	^ block value: aPPContext value: [ parser parseOn: aPPContext ]
 ! !
 
 !PPWrappingParser class methodsFor:'documentation'!
@@ -27,3 +27,4 @@
 version_SVN
     ^ '§Id: PPWrappingParser.st 2 2010-12-17 18:44:23Z vranyj1 §'
 ! !
+