Levente Uzonyi uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-ul.441.mcz

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

Name: Monticello-ul.441
Author: ul
Time: 17 March 2011, 2:00:34.959 am
UUID: 98b2f58c-cbca-6647-9d62-490a97dde15b
Ancestors: Monticello-cmm.440

- cache read only source files during snapshotting

=============== Diff against Monticello-cmm.440 ===============

Item was changed:
  ----- Method: MCPackage>>snapshot (in category 'input/output') -----
  snapshot
  	| packageInfo definitions categories |
  	packageInfo := self packageInfo.
  	definitions := OrderedCollection new.
  	categories := packageInfo systemCategories.
  	categories isEmpty ifFalse: [ definitions add: (MCOrganizationDefinition categories: categories) ].
+ 	CurrentReadOnlySourceFiles cacheDuring: [
+ 		packageInfo methods do: [:ea | definitions add: ea asMethodDefinition] displayingProgress: 'Snapshotting methods...'.
+ 		(packageInfo respondsTo: #overriddenMethods) ifTrue:
+ 			[packageInfo overriddenMethods
+ 				do: [:ea | definitions add:
+ 						(packageInfo changeRecordForOverriddenMethod: ea) asMethodDefinition]
+ 				displayingProgress: 'Searching for overrides...'].
+ 		packageInfo classes do: [:ea | definitions addAll: ea classDefinitions] displayingProgress: 'Snapshotting classes...' ].
- 	packageInfo methods do: [:ea | definitions add: ea asMethodDefinition] displayingProgress: 'Snapshotting methods...'.
- 	(packageInfo respondsTo: #overriddenMethods) ifTrue:
- 		[packageInfo overriddenMethods
- 			do: [:ea | definitions add:
- 					(packageInfo changeRecordForOverriddenMethod: ea) asMethodDefinition]
- 			displayingProgress: 'Searching for overrides...'].
- 	packageInfo classes do: [:ea | definitions addAll: ea classDefinitions] displayingProgress: 'Snapshotting classes...'.
  	(packageInfo respondsTo: #hasPreamble) ifTrue: [
  		packageInfo hasPreamble ifTrue: [definitions add: (MCPreambleDefinition from: packageInfo)].
  		packageInfo hasPostscript ifTrue: [definitions add: (MCPostscriptDefinition from: packageInfo)].
  		packageInfo hasPreambleOfRemoval ifTrue: [definitions add: (MCRemovalPreambleDefinition from: packageInfo)].
  		packageInfo hasPostscriptOfRemoval ifTrue: [definitions add: (MCRemovalPostscriptDefinition from: packageInfo)]]. 
  	^ MCSnapshot fromDefinitions: definitions
  !