Chris Muller uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-cmm.91.mcz

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

Name: MonticelloConfigurations-cmm.91
Author: cmm
Time: 23 March 2011, 4:35:15.54 pm
UUID: 194e25a2-6bd7-4759-a441-06f756f1e064
Ancestors: MonticelloConfigurations-cmm.90

- Didn't need to use #detect:ifFound:ifNone:.

=============== Diff against MonticelloConfigurations-cmm.90 ===============

Item was changed:
  ----- Method: MCConfiguration>>depsSatisfying:versionDo:displayingProgress: (in category 'private') -----
  depsSatisfying: selectBlock versionDo: verBlock displayingProgress: progressString 
  	| count action |
  	count := 0.
  	self repositories do: [ : eachRepository | MCRepositoryGroup default addRepository: eachRepository ].
  	action := [ : dep | | ver repo |
  	ver := dep versionInfo name.
  	repo := self repositories
  		detect:
  			[ : eachRepository | eachRepository includesVersionNamed: ver ]
- 		ifFound:
- 			[ : foundRep | foundRep ]
  		ifNone:
  			[ self logError: 'Version ' , ver , ' not found in any repository'.
  			self logError: 'Aborting'.
  			^ count ].
  	(selectBlock value: dep) ifTrue:
  		[ | new |
  		new := self
  			versionNamed: ver
  			for: dep
  			from: repo.
  		new
  			ifNil:
  				[ self logError: 'Could not download version ' , ver , ' from ' , repo description.
  				self logError: 'Aborting'.
  				^ count ]
  			ifNotNil:
  				[ self
  					logUpdate: dep package
  					with: new.
  				self class extraProgressInfo ifTrue:
  					[ ProgressNotification
  						signal: ''
  						extra: 'Installing ' , ver ].
  				verBlock value: new.
  				count := count + 1 ] ].
  	dep package workingCopy repositoryGroup addRepository: repo ].
  	self class extraProgressInfo
  		ifTrue:
  			[ self dependencies
  				do: action
  				displayingProgress: progressString ]
  		ifFalse: [ self dependencies do: action ].
  	^ count!