300 	| result |

   300         | result |

   301 	result := WriteStream on: String new.

   301 

   302 	self charactersDo: [ :char |

   302         ((Smalltalk respondsTo: #isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[ 

   303 		(aParser matches: (String with: char))

   303             result := String new writeStream

   304 			ifTrue: [ result nextPut: char ] ].

   304         ] ifFalse:[ 

   305 	^ result contents

   305             result := WriteStream on: String new.

   306         ].

   307         self charactersDo: [ :char |

   308                 (aParser matches: (char asString))

   309                         ifTrue: [ result nextPut: char ] ].

   310         ^ result contents

   311 

   312     "Modified: / 03-10-2014 / 03:01:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"