Frank Shearar uploaded a new version of GetText to project The Trunk:
http://source.squeak.org/trunk/GetText-fbs.32.mcz

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

Name: GetText-fbs.32
Author: fbs
Time: 21 May 2013, 10:47:09.48 pm
UUID: 63485fa0-7560-460c-81bd-3134c703acbc
Ancestors: GetText-fbs.31

MethodReference new setStandardClass: foo methodSymbol: bar -> MethodReference class: foo selector: bar.

=============== Diff against GetText-fbs.31 ===============

Item was changed:
  ----- Method: GetTextExporter>>appendVocabularies: (in category 'private') -----
  appendVocabularies: domains
  	| literalsForDomain references domainName methodReference |
  	
  	EToyVocabulary allPhrasesWithContextToTranslate do: [ :r |
+ 		methodReference :=  (MethodReference class: (r second) selector: (r third)).
- 		methodReference :=  (MethodReference new setStandardClass: (r second) methodSymbol: (r third)).
  		"domainName := self getTextDomainForPackage: (PackageOrganizer default packageOfMethod: methodReference)".
  		domainName := 'Etoys-Tiles'.
  		literalsForDomain := domains at: domainName ifAbsentPut: [Dictionary new].
  		r fourth do: [ :literal |
  			references := literalsForDomain at: literal ifAbsentPut: [OrderedCollection new].
  			references add: methodReference.
  		].
  	]. 
  	!