'From Squeak3.7beta of ''1 April 2004'' [latest update: #5878] on 23 April 2004 at 2:39:29 pm'! "Change Set: Unnamed1 Date: 23 April 2004 Author: Boris Gaertner This change set fixes a bug that was reported on Apr 23, 2004 by Alexander Lazarevic. In condenseChanges, the LastQuitLogPosition was not told to SmalltalkImage."! !SystemDictionary methodsFor: 'housekeeping' stamp: 'BG 4/23/2004 14:38'! condenseChanges "Move all the changes onto a compacted sources file." "Smalltalk condenseChanges" | f oldChanges classCount | f _ FileStream fileNamed: 'ST80.temp'. f header; timeStamp. 'Condensing Changes File...' displayProgressAt: Sensor cursorPoint from: 0 to: Smalltalk classNames size during: [:bar | classCount _ 0. Smalltalk allClassesDo: [:class | bar value: (classCount _ classCount + 1). class moveChangesTo: f. class putClassCommentToCondensedChangesFile: f. class class moveChangesTo: f]]. SmalltalkImage current lastQuitLogPosition: f position. f trailer; close. oldChanges _ SourceFiles at: 2. oldChanges close. FileDirectory default deleteFileNamed: oldChanges name , '.old'; rename: oldChanges name toBe: oldChanges name , '.old'; rename: f name toBe: oldChanges name. self setMacFileInfoOn: oldChanges name. SourceFiles at: 2 put: (StandardFileStream oldFileNamed: oldChanges name)! !