Nicolas Cellier uploaded a new version of GetText to project The Trunk: http://source.squeak.org/trunk/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].!