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

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

Name: System-ul.454
Author: ul
Time: 21 September 2011, 12:20:55.326 am
UUID: 5682b4d1-1432-ea44-abc0-9f79b87e9f1b
Ancestors: System-ul.453

Use #copyReplaceAll:with: instead of #copyReplaceAll:with:asTokens:.

=============== Diff against System-ul.453 ===============

Item was changed:
  ----- Method: SARInstaller>>fileInPackageNamed: (in category 'client services') -----
  fileInPackageNamed: memberName 
  	"This is to be used from preamble/postscript code to file in zip 
  	members as DVS packages."
  	| member current new baseName imagePackageLoader packageInfo streamPackageLoader packageManager |
  	member := self zip memberNamed: memberName.
  	member ifNil: [ ^self errorNoSuchMember: memberName ].
  
  	imagePackageLoader := Smalltalk at: #ImagePackageLoader ifAbsent: [].
  	streamPackageLoader := Smalltalk at: #StreamPackageLoader ifAbsent: [].
  	packageInfo := Smalltalk at: #PackageInfo ifAbsent: [].
  	packageManager := Smalltalk at: #FilePackageManager ifAbsent: [].
  
  	"If DVS isn't present, do a simple file-in"
  	(packageInfo isNil or: [imagePackageLoader isNil or: [streamPackageLoader isNil]])
  		ifTrue: [ ^ self fileInMemberNamed: memberName ].
  
+ 	baseName := memberName copyReplaceAll: '.st' with: ''.
- 	baseName := memberName copyReplaceAll: '.st' with: '' asTokens: false.
  	(packageManager allManagers anySatisfy: [ :pm | pm packageName = baseName ])
  		ifTrue: [
  			current := imagePackageLoader new package: (packageInfo named: baseName).
  			new := streamPackageLoader new stream: member contentStream ascii.
  			(new changesFromBase: current) fileIn ]
  		ifFalse: [ self class fileIntoChangeSetNamed: baseName fromStream: member contentStream ascii setConverterForCode. ].
  
  	packageManager registerPackage: baseName.
  
  	self installed: member.!