A new version of Monticello was added to project The Inbox:
http://source.squeak.org/inbox/Monticello-topa.584.mcz

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

Name: Monticello-topa.584
Author: topa
Time: 25 January 2014, 10:00:32.75 pm
UUID: 9e0c437a-a18c-4e31-ac9e-775246bea49d
Ancestors: Monticello-cmm.583

The number of distinct authors in the image is low:
(MCVersionInfo allInstances collect: [ :each | each author ]) asIdentitySet size.  "13336"
(MCVersionInfo allInstances collect: [ :each | each author ]) asSet size. "128"

Hence, we can safely store them as symbols.
This does not save much memory in a small image but should in
production images.

=============== Diff against Monticello-cmm.583 ===============

Item was changed:
  ----- Method: MCVersionInfo>>asDictionary (in category 'converting') -----
  asDictionary
  	^ Dictionary new
  		at: #name put: name;
  		at: #id put: id asString;
  		at: #message put: message;
  		at: #date put: date;
  		at: #time put: time;
+ 		at: #author put: self author;
- 		at: #author put: author;
  		at: #ancestors put: (self ancestors collect: [:a | a asDictionary]);
  		yourself!

Item was changed:
  ----- Method: MCVersionInfo>>author (in category 'pillaging') -----
  author
+ 	^ author asString!
- 	^ author!

Item was changed:
  ----- Method: MCVersionInfo>>initializeWithName:id:message:date:time:author:ancestors:stepChildren: (in category 'initialize-release') -----
+ initializeWithName: vName id: aUUID message: aString date: aDate 
+ 
+ ----QUIT/NOSAVE----{25 January 2014 . 9:51:21 pm} Squeak4.5-13148.image priorSource: 10755666!
- initializeWithName: vName id: aUUID message: aString date: aDate time: aTime author: initials ancestors: aCollection stepChildren: stepCollection
- 	name := vName asString asMCVersionName.
- 	id := aUUID.
- 	message := aString.
- 	date := aDate.
- 	time := aTime.
- 	author := initials.
- 	ancestors :=  aCollection.
- 	stepChildren := stepCollection!

Item was changed:
  ----- Method: MCVersionInfo>>summaryHeader (in category 'accessing') -----
  summaryHeader
  	^ String streamContents:
  		[:s |
  		s
  			nextPutAll: 'Name: '; nextPutAll: self name; cr.
  		date ifNotNil:
  			[s
+ 				nextPutAll: 'Author: '; nextPutAll: self author; cr;
- 				nextPutAll: 'Author: '; nextPutAll: author; cr;
  				nextPutAll: 'Time: '; nextPutAll:  date asString, ', ', time asString; cr].
  		id ifNotNil:
  			[s nextPutAll: 'UUID: '; nextPutAll: id asString; cr].
  		s
  			nextPutAll: 'Ancestors: '; nextPutAll: self ancestorString.
  		self stepChildren isEmpty ifFalse:
  			[s cr; nextPutAll: 'Backported From: '; nextPutAll: self stepChildrenString].
  		]!

Item was added:
+ (PackageInfo named: 'Monticello') postscript: '(MCVersionInfo allInstances select: [ :ea | (ea instVarNamed: ''author'') isSymbol not ])
+ do: [ :ea | ea instVarNamed: ''author'' put: (ea instVarNamed: ''author'') asSymbol]'!