--- a/extensions.st	Sun Oct 05 00:29:07 2014 +0100
+++ b/extensions.st	Sat Oct 04 23:34:14 2014 +0100
@@ -83,21 +83,14 @@
 !PositionableStream methodsFor:'*petitparser-core-converting'!
 
 asPetitStream
-	"Some of my subclasses do not use the instance-variables collection, position and readLimit but instead have a completely different internal representation. In these cases just use the super implementation that is inefficient but should work in all cases."
-
-	"DUNNO WHY, but on: collection from: position to: last set the start to position -1"
-	self breakPoint: #petitparser.
+        "Some of my subclasses do not use the instance-variables collection, position and readLimit but instead have a completely different internal representation. In these cases just use the super implementation that is inefficient but should work in all cases."
 
-	^ (collection isNil or: [ position  isNil or: [ readLimit isNil ] ])
-		ifFalse: [ PPStream on: collection from: (position +1) to: readLimit ]
-		ifTrue: [ super asPetitStream ]
-
-
-"/        ^ (collection isNil or: [ position isNil or: [ readLimit isNil ] ])
-"/                ifFalse: [ PPStream on: collection from: position to: readLimit ]
-"/                ifTrue: [ super asPetitStream ]
+        ^ (collection isNil or: [ position isNil or: [ readLimit isNil ] ])
+                ifFalse: [ PPStream on: collection from: ( position + 1 ) to: readLimit ]
+                ifTrue: [ super asPetitStream ]
 
     "Modified: / 18-12-2010 / 17:38:01 / Jan Kurs <kurs.jan@post.cz>"
+    "Modified: / 04-10-2014 / 23:27:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PositionableStream methodsFor:'*petitparser-core'!