Thanks Eliot these features are needed for the release.

On Fri, May 29, 2015 at 6:10 PM,  <commits at source.squeak.org> wrote:
> Eliot Miranda uploaded a new version of System to project The Trunk:
> http://source.squeak.org/trunk/System-eem.740.mcz
>
> ==================== Summary ====================
>
> Name: System-eem.740
> Author: eem
> Time: 29 May 2015, 4:09:46.189 pm
> UUID: 53894fe9-e3f5-44c7-b4c2-101e4d72f0d3
> Ancestors: System-eem.739
>
> Modify condensSources to preserve direct method history.
>
> =============== Diff against System-eem.739 ===============
>
> Item was changed:
>   ----- Method: SmalltalkImage>>condenseSources (in category 'housekeeping') -----
>   condenseSources
>         "Move all the changes onto a compacted sources file."
>         "Smalltalk condenseSources"
>
>         | newSourcesFile defaultDirectory newVersion currentVersion |
>         Utilities fixUpProblemsWithAllCategory.
>         "The above removes any concrete, spurious '-- all --' categories, which mess up the process."
>         defaultDirectory := FileDirectory default.
>         currentVersion := self sourceFileVersionString.
>         newVersion := UIManager default
>                 request: 'Please designate the version\for the new source code file...' withCRs
>                 initialAnswer: currentVersion.
>         newVersion ifEmpty: [ ^ self ].
>         newVersion = currentVersion ifTrue: [ ^ self error: 'The new source file must not be the same as the old.' ].
>         self sourceFileVersionString: newVersion.
>
>         "Write all sources with fileIndex 1"
>         newSourcesFile := defaultDirectory newFileNamed: (defaultDirectory localNameFor: self sourcesName).
>         newSourcesFile ifNil: [ ^ self error: 'Couldn''t create source code file in\' withCRs,  defaultDirectory name].
>         newSourcesFile
>                 header;
>                 timeStamp.
>         'Condensing Sources File...'
>                 displayProgressFrom: 0
>                 to: self classNames size + self traitNames size
>                 during:
>                         [ :bar |
>                         | count |
>                         count := 0.
>                         Smalltalk allClassesAndTraitsDo:
>                                 [ :classOrTrait |
>                                 bar value: (count := count + 1).
>                                 classOrTrait
>                                         fileOutOn: newSourcesFile
> +                                       moveSource: #historically
> -                                       moveSource: true
>                                         toFile: 1 ] ].
>         newSourcesFile
>                 trailer;
>                 close.
>
>         "Make a new empty changes file"
>         self closeSourceFiles.
>         defaultDirectory
>                 rename: self changesName
>                 toBe: self changesName , '.old'.
>         (FileStream newFileNamed: self changesName)
>                 header;
>                 timeStamp;
>                 close.
>         self lastQuitLogPosition: 0.
>         self setMacFileInfoOn: self changesName.
>         self setMacFileInfoOn: newSourcesFile name.
>         self openSourceFiles.
>         self inform: 'Source files have been rewritten to\' withCRs, newSourcesFile name, '\Check that all is well,\and then save/quit.' withCRs!
>
>