Perhaps other people have already reported this for Bloc but something is wrong with the font rendering of Athens. Here's the code and how it is rendered in Athens vs how it is rendered in BitBlt. It seems like Athens adds more space between letters than is supposed to be there.

tMorph := TextMorph new.

font1 := TextFontReference toFont: (LogicalFont familyName: 'Arial' fallbackFamilyNames: nil pointSize: 28 stretchValue: 5 weightValue: 400 slantValue: 0).

font2 := (TextFontReference toFont: (StrikeFont familyName: 'Atlanta' size: 11)).

t1 := 'this is font1' asText addAttribute: font1.

t2 := ' and this is font2' asText addAttribute: font2.

tMorph contents: (t1,t2).

Cheers,

Jeff