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

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

Name: Monticello-ul.477
Author: ul
Time: 3 August 2011, 1:46:49.384 am
UUID: 251321fb-167b-9e48-882e-385f1474b157
Ancestors: Monticello-bf.476

Removed unnecessary blocks.

=============== Diff against Monticello-bf.476 ===============

Item was changed:
  ----- Method: MCHttpRepository>>displayProgress:during: (in category 'required') -----
  displayProgress: label during: workBlock
  	| nextUpdateTime |
  	nextUpdateTime := 0.
  	^label displayProgressFrom: 0.0 to: 1.0 during:[:bar|
+ 			workBlock on: HTTPProgress do:[:ex|
- 			[workBlock value] on: HTTPProgress do:[:ex|
  				(ex total == nil or:[ex amount == nil]) ifFalse:[
  					(nextUpdateTime < Time millisecondClockValue 
  						or:[ex total = ex amount]) ifTrue:[
  							bar value: ex amount asFloat / ex total asFloat.
  							nextUpdateTime := Time millisecondClockValue + 100.
  					].
  				].
  				ex resume.
  			]
  		].
  !

Item was changed:
  ----- Method: MCPackageLoader>>useChangeSetNamed:during: (in category 'private') -----
  useChangeSetNamed: baseName during: aBlock
  	"Use the named change set, or create one with the given name."
  	| changeHolder oldChanges newChanges |
  	changeHolder := (ChangeSet respondsTo: #newChanges:)
  						ifTrue: [ChangeSet]
  						ifFalse: [Smalltalk].
  	oldChanges := (ChangeSet respondsTo: #current)
  						ifTrue: [ChangeSet current]
  						ifFalse: [Smalltalk changes].
  
  	newChanges := (ChangesOrganizer changeSetNamed: baseName) ifNil: [ ChangeSet new name: baseName ].
  	changeHolder newChanges: newChanges.
+ 	aBlock ensure: [changeHolder newChanges: oldChanges].
- 	[aBlock value] ensure: [changeHolder newChanges: oldChanges].
  !

Item was changed:
  ----- Method: MCVersionReader class>>file:streamDo: (in category 'reading') -----
  file: fileName streamDo: aBlock
  
+ 	^FileStream readOnlyFileNamed: fileName do: aBlock!
- 	^FileStream readOnlyFileNamed: fileName do: [ :file |
- 		aBlock value: file ]!