A new version of Installer-Core was added to project The Inbox:
http://source.squeak.org/inbox/Installer-Core-cmm.345.mcz

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

Name: Installer-Core-cmm.345
Author: cmm
Time: 7 March 2011, 2:35:15.79 pm
UUID: 6bd957c1-78d6-4e74-a5a3-25cdee3bd02d
Ancestors: Installer-Core-cmm.344

Fixed two more FileBasedRepository dependencies.

=============== Diff against Installer-Core-mtf.343 ===============

Item was changed:
  ----- Method: InstallerMonticello>>basicAvailablePackages (in category 'basic interface') -----
  basicAvailablePackages
+ 	^ self mc allPackageNames!
- 	^ self mc allFileNames!

Item was removed:
- ----- Method: InstallerMonticello>>mcDetectFileBlock: (in category 'monticello') -----
- mcDetectFileBlock: pkg
- 
- 	pkg isString ifTrue: [  ^ [ :aFile | aFile beginsWith: pkg ] ].
- 
- 	(pkg isKindOf: Array) 
- 			ifTrue: [  ^  [ :aFile | (pkg detect: [ :item | aFile beginsWith: item ] ifNone: [ false ]) ~= false ] ].
- 
- 	pkg isBlock ifTrue: [ ^ pkg ].
-   
-  !

Item was changed:
  ----- Method: InstallerMonticello>>mcThing (in category 'monticello') -----
  mcThing
+ 	| loader |
- 	| loader files count |
- 
  	loader := self classMCVersionLoader new.
+ 	self logCR: 'reading ' , mc description , '...'.
+ 	"several attempts to read files - repository readableFileNames sometimes fails"
+ 	self packages do:
+ 		[ : pkg | | fileToLoad version |
+ 		fileToLoad := mc highestNumberedVersionNameForPackageNamed: pkg.
+ 		version := mc versionNamed: fileToLoad.
+ 		(version isKindOf: MCConfiguration)
- 	
- 	count := 0. files := nil.
- 	self logCR: 'reading ', mc description, '...'.
- 		"several attempts to read files - repository readableFileNames sometimes fails"
- 	[ count := count + 1.
- 	 (files = nil) and:[ count < 5 ] ] 
- 		whileTrue: [files := mc readableFileNames sort: self mcSortFileBlock ].
- 	files ifNil: [  Warning signal: 'Repository not readable: ', mc description. ^ nil  ].
- 		
- 	self packages do: [ :pkg |
- 		| fileToLoad version |
- 
- 		self log: 'finding ', pkg asString, '...'.
- 		
- 		fileToLoad := files detect: (self mcDetectFileBlock: pkg) ifNone: [ nil ].
- 		
- 		version := mc versionFromFileNamed: fileToLoad.
- 		(version isKindOf: MCConfiguration) 
  			ifTrue: [ ^ version ]
+ 			ifFalse:
+ 				[ MCRepositoryGroup default addRepository: self normalizedRepository.
- 			ifFalse:[
- 				MCRepositoryGroup default addRepository: self normalizedRepository.
  				version workingCopy repositoryGroup addRepository: self normalizedRepository.
  				loader addVersion: version ].
+ 		self logCR: ' found ' , version fileName , '...' ].
- 			
- 		self logCR: ' found ', version fileName, '...'.
- 	].
- 
  	^ loader!