Bert Freudenberg uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-bf.692.mcz

==================== Summary ====================

Name: System-bf.692
Author: bf
Time: 8 December 2014, 2:22:24.792 am
UUID: 2531e010-26d8-49d0-83c7-e81609411c3b
Ancestors: System-eem.691

Restore timestamps lost in assignment conversion.

=============== Diff against System-eem.691 ===============

Item was changed:
  ----- Method: FileDirectory class>>openChanges:forImage: (in category '*System-Files') -----
  openChanges: changesName forImage: imageName
  "find the changes file by looking in
  a) the directory derived from the image name
  b) the DefaultDirectory (which will normally be the directory derived from the image name or the SecurityManager's choice)
  If an old file is not found in either place, check for a read-only file in the same places. If that fails, return nil"
  	| changes fd |
  	"look for the changes file or an alias to it in the image directory"
  	fd := FileDirectory on: (FileDirectory dirPathFor: imageName).
  	(fd fileExists: changesName)
  		ifTrue: [changes := fd oldFileNamed: changesName].
  	changes ifNotNil:[^changes].
  
  	"look for the changes in the default directory"
  	fd := DefaultDirectory.
  	(fd fileExists: changesName)
  		ifTrue: [changes := fd oldFileNamed: changesName].
  	changes ifNotNil:[^changes].
  
  	"look for read-only changes in the image directory"
  	fd := FileDirectory on: (FileDirectory dirPathFor: imageName).
  	(fd fileExists: changesName)
  		ifTrue: [changes := fd readOnlyFileNamed: changesName].
  	changes ifNotNil:[^changes].
  
  	"look for read-only changes in the default directory"
  	fd := DefaultDirectory.
  	(fd fileExists: changesName)
  		ifTrue: [changes := fd readOnlyFileNamed: changesName].
  	"this may be nil if the last try above failed to open a file"
  	^changes
  !

Item was changed:
  ----- Method: FileDirectory class>>setDefaultDirectory: (in category '*System-Files') -----
  setDefaultDirectory: directoryName
  	"Initialize the default directory to the directory supplied. This method is called when the image starts up."
  	| dirName |
  	DirectoryClass := self activeDirectoryClass.
  	dirName := (FilePath pathName: directoryName) asSqueakPathName.
  	[dirName endsWith: self slash] whileTrue:[
  		dirName := dirName copyFrom: 1 to: dirName size - self slash size.
  	].
  	DefaultDirectory := self on: dirName.!

Item was changed:
  ----- Method: FileStream class>>fileIn: (in category '*System-Files') -----
  fileIn: fullName
  	"File in the entire contents of the file specified by the name provided"
  
  	| ff |
  	fullName ifNil: [^ Beeper beep].
  	ff := self readOnlyFileNamed: (GZipReadStream uncompressedFileName: fullName).
  	ff fileIn.
  !

Item was changed:
  ----- Method: ImageSegment class>>folder (in category 'fileIn/Out') -----
  folder
  	| im |
  	"Full path name of segments folder.  Be sure to duplicate and rename the folder when you duplicate and rename an image.  Is $_ legal in all file systems?"
  
  	im := Smalltalk imageName.
  	^ (im copyFrom: 1 to: im size - 6 "'.image' size"), '_segs'!

Item was changed:
  ----- Method: NaturalLanguageTranslator>>localeID (in category 'accessing') -----
  localeID
  	^id!

Item was changed:
  ----- Method: NaturalLanguageTranslator>>printOn: (in category 'printing') -----
  printOn: aStream
  	aStream nextPutAll: self class name; nextPut: $(; print: self localeID; nextPut: $)!

Item was changed:
  ----- Method: PrettyTextDiffBuilder class>>from:to:inClass: (in category 'instance creation') -----
  from: srcString to: dstString inClass: srcClass 
  	^ (self new sourceClass: srcClass) from: srcString to: dstString
  		!

Item was changed:
  ----- Method: PrettyTextDiffBuilder>>sourceClass: (in category 'initialize') -----
  sourceClass: aClass
  	sourceClass := aClass.!

Item was changed:
  ----- Method: WeakRegistry>>species (in category 'private') -----
  species
  	^Set!