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

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

Name: Monticello-cmm.549
Author: cmm
Time: 27 June 2013, 4:09:58.012 pm
UUID: 43fed9bc-ca4c-4bdd-a31e-8d3d6339a357
Ancestors: Monticello-fbs.548

Allow RepositoryGroup to function as a partially-connected repository, where some of its 'repositories' may be accessible, some not.  Do not signal an error just because one of several repositories is unavailable.

=============== Diff against Monticello-fbs.548 ===============

Item was changed:
  ----- Method: MCHttpRepository>>allFileNames (in category 'required') -----
  allFileNames
  	| index |
+ 	self displayProgress: 'Updating ', self description during:[
- 	[self displayProgress: 'Updating ', self description during:[
  		index := HTTPSocket httpGet: self locationWithTrailingSlash, '?C=M;O=D' args: nil user: self user passwd: self password.
+ 	].
+ 	index isString ifTrue: [NetworkError signal: 'Could not access ', location].
- 	]] on: NetworkError do: [ :e | self error: 'Could not access ', location, '(', e className, ')'].
- 	index isString ifTrue: [self error: 'Could not access ', location].
  	^ self parseFileNamesFromStream: index	!

Item was changed:
  ----- Method: MCRepositoryGroup>>versionNamesForPackageNamed: (in category 'repository-api') -----
  versionNamesForPackageNamed: aString 
  	^ repositories
  		inject: Set new
  		into:
  			[ : set : each | set
+ 				 addAll:
+ 					([ each versionNamesForPackageNamed: aString ]
+ 						on: NetworkError
+ 						do: [ : err | Array empty ]) ;
- 				 addAll: (each versionNamesForPackageNamed: aString) ;
  				 yourself ]!

Item was changed:
  ----- Method: MCRepositoryGroup>>versionWithInfo:ifAbsent: (in category 'repository-api') -----
  versionWithInfo: aVersionInfo ifAbsent: aBlock 
  	repositories do:
+ 		[ : each | ([each
- 		[ : each | (each
  			versionWithInfo: aVersionInfo
+ 			ifAbsent: [ nil ]] on: NetworkError do: [ : err | nil ]) ifNotNil:
- 			ifAbsent: [  ]) ifNotNil:
  			[ : ver | ^ ver ] ].
  	^ aBlock value!