I've been looking into how the current 13.4MB a Pharo image uses are spent... I expected that at least half of it is used by classes (compiled methods). But this is not the case. Actually, only about 1/4th are classes. As it turned out, almost the same amount of memory is used by forms (actually bitmaps)! If you want to know which are the largest 10 forms try this: (Form allInstances asSortedCollection: [ :e1 :e2 | e1 bits size >= e2 bits size ]) from: 1 to: 10 do: [ :each | each asMorph openInWorld ] ...among which for example are 4 different color pickers. In total there are around 450 forms, most from EToys. I've manually traced down where the larger forms come from and have cleaned up those that were possible (many are only referenced by caches). The number of forms is at 320 now. In the process I produced the script below, which among other stuff removes all but the default font. Also, it actually removes the flaps from the system instead of only hiding them. Here a history of image sizes: Squeak 3.9: 15.6 MB Pharo 10091: 13.4MB (before cleanup) Pharo 10091: 10.9MB (after cleanup) Main conclusion: the system needs cleanup not only of the code (where the mess is more directly visible), but also of the object memory. Furthermore, I expect removing EToys will have an nice impact on the image size. Also removing Sound will release some memory because of sound samples. If anybody has suggestions to further reduce the image size (<10MB would be a nice target for the first release...), please let me know. Cheers, Adrian Preferences setDefaultFonts: #( (setSystemFontTo: 'Accuny' 10) (setListFontTo: 'Accuny' 10) (setMenuFontTo: 'Accuny' 10) (setFlapsFontTo: 'Accuny' 12) (setEToysFontTo: 'Accuny' 10) (setPaintBoxButtonFontTo: 'Accuny' 10) (setWindowTitleFontTo: 'Accuny' 15) (setBalloonHelpFontTo: 'Accuny' 10) (setCodeFontTo: 'Accuny' 10) (setButtonFontTo: 'Accuny' 8)). TextConstants associations do: [ :association | ((association value isKindOf: TextStyle) and: [ association key ~= #Accuny ] and: [ (TextStyle defaultFamilyNames includes: association key) not ]) ifTrue: [ TextConstants removeKey: association key ]]. TextConstants at: #DefaultFixedTextStyle put: (TextConstants at: #Accuny). (Flaps classPool at: #SharedFlapTabs) removeAllSuchThat: [ :each | (#(Tools Pharo) includes: each labelString) not ]. NaturalLanguageFormTranslator classPool at: #CachedTranslations put: nil. NaturalLanguageTranslator resetCaches. PartsBin clearThumbnailCache. PaintBoxMorph initialize. PaintBoxMorph classPool at: #ColorChart put: nil; at: #Prototype put: nil. Utilities classPool at: #ScrapsBook put: nil. Project allInstancesDo: [ :each | each setThumbnail: nil ]. InternalThreadNavigationMorph clearThumbnailCache. ScriptingSystem stripGraphicsForExternalRelease. ProjectHistory currentHistory initialize. Utilities zapUpdateDownloader. Smalltalk forgetDoIts. Behavior flushObsoleteSubclasses. CommandHistory allInstancesDo: #initialize. ScriptLoader new cleaningCS. RequiredSelectors initialize. ProvidedSelectors initialize. LocalSends initialize. SendCaches initializeAllInstances. Utilities cleanseOtherworldlySteppers. Smalltalk organization removeEmptyCategories. SystemBrowser removeObsolete. TheWorldMenu removeObsolete. AppRegistry removeObsolete. FileServices removeObsolete. SystemNavigation default obsoleteBehaviors. MCFileBasedRepository flushAllCaches. MCDefinition clearInstances. Undeclared removeUnreferencedKeys. Smalltalk flushClassNameCache. 3 timesRepeat: [ Smalltalk garbageCollect. Symbol compactSymbolTable ]. Set rehashAllSets. Smalltalk garbageCollect. ___________________ http://www.adrian-lienhard.ch/