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

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

Name: System-ul.262
Author: ul
Time: 24 February 2010, 4:48:14.266 pm
UUID: 5dc45cd0-9f69-1c4b-8f9a-969f5535e70a
Ancestors: System-edc.261

- don't use #lastPositionOf:
- minor cleanup

=============== Diff against System-edc.261 ===============

Item was changed:
  ----- Method: CodeLoader>>installSourceFiles (in category 'installing') -----
  installSourceFiles
  	"Install the previously loaded source files"
+ 
+ 	sourceFiles ifNil: [ ^self ].
+ 	sourceFiles do: [ :request | 
+ 			| aSuffix |
+ 			aSuffix := request url copyAfterLast: $..
+ 			aSuffix
+ 				caseOf: {
+ 					[ 'mcz' ] -> [ self tryVersion: (request url copyAfterLast: $/) ].
+ 					[ 'sar' ] -> [ SARInstaller new fileInFrom: request contentStream ]}
+ 				otherwise: [ self installSourceFile: request contentStream ] ].
- 	| aSuffix pos packName |
- 	sourceFiles == nil
- 		ifTrue: [^ self].
- 	sourceFiles
- 		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]].
  	sourceFiles := nil!