--- a/PPParser.st	Fri Jan 11 10:58:24 2013 +0100
+++ b/PPParser.st	Fri Jan 11 13:31:10 2013 +0100
@@ -440,10 +440,18 @@
 !
 
 printOn: aStream
-	super printOn: aStream.
-	aStream nextPut: $(.
-	self printNameOn: aStream.
-	aStream nextPut: $)
+    PPPrinter notNil ifTrue:[
+        PPPrinter new 
+            stream: aStream ;
+            visit: self
+    ] ifFalse:[
+        super printOn: aStream.
+        aStream nextPut: $(.
+        self printNameOn: aStream.
+        aStream nextPut: $)
+    ].
+
+    "Modified: / 11-01-2013 / 09:20:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPParser methodsFor:'testing'!
@@ -456,14 +464,15 @@
 	^ false
 ! !
 
+
 !PPParser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.4 2012-12-01 14:29:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.5 2013-01-11 12:31:10 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.4 2012-12-01 14:29:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.5 2013-01-11 12:31:10 vrany Exp $'
 !
 
 version_SVN