Nicolas Cellier uploaded a new version of XML-Parser to project The Trunk:
http://source.squeak.org/trunk/XML-Parser-nice.28.mcz

==================== Summary ====================

Name: XML-Parser-nice.28
Author: nice
Time: 23 March 2010, 10:38:53.196 pm
UUID: cd271fe0-0383-4952-b32b-a4cc74fe84c3
Ancestors: XML-Parser-nice.27

Fix underscores

=============== Diff against XML-Parser-nice.27 ===============

Item was changed:
  ----- Method: XMLTokenizer>>match:into: (in category 'streaming') -----
  match: subCollection into: resultStream
  	"Set the access position of the receiver to be past the next occurrence of the subCollection. Answer whether subCollection is found.  No wildcards, and case does matter."
  
  	| pattern startMatch |
+ 	pattern := ReadStream on: subCollection.
+ 	startMatch := nil.
- 	pattern _ ReadStream on: subCollection.
- 	startMatch _ nil.
  	[pattern atEnd] whileFalse: 
  		[self atEnd ifTrue: [^ false].
  		(self next) = (pattern next) 
+ 			ifTrue: [pattern position = 1 ifTrue: [startMatch := self position]]
- 			ifTrue: [pattern position = 1 ifTrue: [startMatch _ self position]]
  			ifFalse: [pattern position: 0.
  					startMatch ifNotNil: [
  						self position: startMatch.
+ 						startMatch := nil]]].
- 						startMatch _ nil]]].
  	^ true
  
  !