Edgar J. De Cleene uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-edc.261.mcz

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

Name: System-edc.261
Author: edc
Time: 24 February 2010, 7:50:16.018 am
UUID: dc9c47c5-5f4d-4c54-948f-d6c590fca1eb
Ancestors: System-ul.260

Fix CodeLoader installSourceFiles

Now you could do this example

|loader |
	loader _ CodeLoader new.
	loader baseURL: 'http://www.squeaksource.com/Ladrillos/'.
	loader loadSourceFiles: #('Scamper-edc.13.mcz' );installSourceFiles.

=============== Diff against System-ul.260 ===============

Item was changed:
  ----- Method: CodeLoader>>installSourceFiles (in category 'installing') -----
  installSourceFiles
  	"Install the previously loaded source files"
+ 	| aSuffix pos packName |
- 	| aSuffix | 
  	sourceFiles == nil
  		ifTrue: [^ self].
  	sourceFiles
+ 		do: [:req | 
+ 			aSuffix := (req url findTokens: '.') last.
- 		do: [:req | aSuffix :=  (req url  findTokens: '.') last..
- 			
  			aSuffix caseOf: {
+ 				['mcz'] -> [pos := req url lastPositionOf: $/.
+ 					packName := req url copyFrom: pos + 1 to: req url size.
+ 					self tryVersion: packName].
+ 				['sar'] -> [SARInstaller new fileInFrom: req contentStream]}
+ 				 otherwise: [self installSourceFile: req contentStream]].
- 			[ 'mcz'] -> [MczInstaller installStream: req contentStream].
- 				['sar'] ->[ SARInstaller new fileInFrom: req contentStream]}
- 				otherwise: [self installSourceFile: req contentStream]].
  	sourceFiles := nil!