In another thread (Pharo image size: 10.9MB) I proposed to remove all but one font since the ones in the image (especially the TT fonts) are not really useful but consume memory. Hilaire suggested to keep Accujen, which to my eyes looks better than the default Accuny font (not perfect, but better..). So I suggest to change the default to Accujen, keep the current default Accuny, and remove all other fonts. The script below does this so you can try it out if you are interested. It frees roughly 2k, but eventually with more cleanup it will have a bigger impact because the TT font instances are still referenced from other places in the system. Adrian Preferences setDefaultFonts: #( (setSystemFontTo: 'Accujen' 12) (setListFontTo: 'Accujen' 12) (setMenuFontTo: 'Accujen' 12) (setFlapsFontTo: 'Accujen' 14) (setEToysFontTo: 'Accujen' 12) (setPaintBoxButtonFontTo: 'Accujen' 12) (setWindowTitleFontTo: 'Accujen' 12) (setBalloonHelpFontTo: 'Accujen' 12) (setCodeFontTo: 'Accujen' 12) (setButtonFontTo: 'Accujen' 12)). Preferences setWindowTitleFontTo: (Preferences windowTitleFont emphasized: 1). Preferences setFlapsFontTo: Preferences windowTitleFont. TextConstants associations do: [ :association | ((association value isKindOf: TextStyle) and: [ association key ~= #Accuny ] and: [ association key ~= #Accujen ] and: [ (TextStyle defaultFamilyNames includes: association key) not ]) ifTrue: [ TextConstants removeKey: association key ]]. #(#DefaultFixedTextStyle #DefaultMultiStyle) do: [ :key | TextConstants at: key put: (TextConstants at: #DefaultTextStyle ) ]. PartsBin clearThumbnailCache. Smalltalk garbageCollect ___________________ http://www.adrian-lienhard.ch/