David T. Lewis uploaded a new version of XML-Parser to project The Trunk:
http://source.squeak.org/trunk/XML-Parser-cbc.41.mcz

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

Name: XML-Parser-cbc.41
Author: cbc
Time: 6 February 2017, 9:55:05.728517 am
UUID: b80148cc-7082-b549-afaf-d53bcdc98930
Ancestors: XML-Parser-monty.40

Added missing #applyLanguageInformation: to String and ByteString (and gutted versions of #applyLanguageInfomation: to same locations, forwarding on to correctly spelled variants, as implied in version .40 previosly).

=============== Diff against XML-Parser-monty.40 ===============

Item was added:
+ ----- Method: ByteString>>applyLanguageInfomation: (in category '*xml-parser') -----
+ applyLanguageInfomation: languageEnvironment
+ 	"Fixed spelling"
+ 	^self applyLanguageInformation: languageEnvironment!

Item was added:
+ ----- Method: ByteString>>applyLanguageInformation: (in category '*xml-parser') -----
+ applyLanguageInformation: languageEnvironment
+ !

Item was changed:
  ----- Method: String>>applyLanguageInfomation: (in category '*xml-parser') -----
  applyLanguageInfomation: languageEnvironment
+ 	"Fixed spelling"
+ 	^self applyLanguageInformation: languageEnvironment!
- 	"this is here for backwards compatibility but now just forwards to the
- 	correctly-spelled version defined directly on String and ByteString"
- 	self applyLanguageInformation: languageEnvironment!

Item was added:
+ ----- Method: String>>applyLanguageInformation: (in category '*xml-parser') -----
+ applyLanguageInformation: languageEnvironment
+ 	
+ 	| leadingChar |
+ 	leadingChar := languageEnvironment leadingChar.
+ 	self withIndexDo: [:each :idx |
+ 		each asciiValue > 255
+ 			ifTrue: [self at: idx put: (Character leadingChar: leadingChar code: each asUnicode)]]!