--- a/devtools/PPDebugger.st	Fri Jan 11 13:31:10 2013 +0100
+++ b/devtools/PPDebugger.st	Fri Jan 11 16:17:28 2013 +0100
@@ -23,11 +23,16 @@
     indent timesRepeat:[Transcript nextPutAll:'    '].
     Transcript nextPutAll:'{ '.
     Transcript nextPutAll: aPPParser name ? aPPParser printString.
-    Transcript nextPutAll: ' pos = '; nextPutAll: aStream position.
+    [
+        Transcript nextPutAll: ' pos = '; nextPutAll: aStream position printString.
+    ] on: Error do:[:ex|
+        Debugger enter.
+    ].
     Transcript cr.
     indent := indent + 1.
 
     "Created: / 12-03-2012 / 16:41:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-01-2013 / 15:16:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 leaveParser: aPPParser stream: aStream result: result
@@ -36,7 +41,7 @@
     indent timesRepeat:[Transcript nextPutAll:'    '].
     Transcript nextPutAll:'} '.
     Transcript nextPutAll: aPPParser name ? aPPParser printString.
-    Transcript nextPutAll: ' pos = '; nextPutAll: aStream position.
+    Transcript nextPutAll: ' pos = '; nextPutAll: aStream position printString.
     Transcript nextPutAll: ' result = '.
     result isPetitFailure ifTrue:[
         Transcript nextPutAll: 'FAILURE '.
@@ -45,6 +50,7 @@
     Transcript cr.
 
     "Created: / 12-03-2012 / 16:41:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-01-2013 / 15:17:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPDebugger methodsFor:'initialization'!
@@ -63,11 +69,11 @@
 !PPDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPDebugger.st,v 1.1 2012-05-05 14:48:51 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPDebugger.st,v 1.2 2013-01-11 15:17:28 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPDebugger.st,v 1.1 2012-05-05 14:48:51 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPDebugger.st,v 1.2 2013-01-11 15:17:28 vrany Exp $'
 !
 
 version_SVN