A new version of GetText was added to project The Inbox:
http://source.squeak.org/inbox/GetText-nice.25.mcz

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

Name: GetText-nice.25
Author: nice
Time: 31 March 2012, 3:42:21.401 pm
UUID: 3d116085-38ce-4851-a71f-73f126c8165b
Ancestors: GetText-nice.24

Oops, correct my miss-simplification, the \n was missing...

=============== Diff against GetText-nice.24 ===============

Item was changed:
  ----- Method: GetTextExporter>>exportTag:msg: (in category 'private') -----
  exportTag: tag msg: aString 
  	stream nextPutAll: tag.
  	stream space.
+ 	aString lineIndicesDo: [:start :endWithoutDelimiters :end |
+ 		| line |
+ 		line := (end = endWithoutDelimiters)
+ 			ifTrue: [aString copyFrom: start to: endWithoutDelimiters]
+ 			ifFalse: [(aString at: endWithoutDelimiters + 1) = Character cr
+ 				ifTrue: [aString copyFrom: start to: endWithoutDelimiters + 1]
+ 				ifFalse: [(aString copyFrom: start to: endWithoutDelimiters) copyWith: Character cr]].
- 	aString linesDo: [:line | 
  		stream
  			nextPut: $";
  			nextPutAll: (self formatString: line);
  			nextPut: $";
  			cr].!