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

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

Name: PackageInfo-Base-cmm.54
Author: cmm
Time: 5 April 2011, 3:25:43.621 pm
UUID: 0b16f7ba-692f-48ef-ac8d-e3dcd89ef904
Ancestors: PackageInfo-Base-nice.53

Revert change which would ensure, upon every access, that the correct type of PackageInfo subclass was returned (but which required override of #packageName on the class-side).

=============== Diff against PackageInfo-Base-nice.53 ===============

Item was removed:
- ----- Method: PackageInfo class>>classFor: (in category 'private') -----
- classFor: packageNameString 
- 	self
- 		allSubclassesDo: [:each | (each packageName isString
- 					and: [each packageName sameAs: packageNameString])
- 				ifTrue: [^ each]]!

Item was changed:
  ----- Method: PackageInfo class>>named: (in category 'packages access') -----
+ named: aString
+ 	^ PackageOrganizer default packageNamed: aString ifAbsent: [(self new packageName: aString) register]!
- named: aString 
- 	"Answer the PackageInfo with name aString."
- 	| original replacement |
- 	original := PackageOrganizer default
- 				packageNamed: aString
- 				ifAbsent: [].
- 	^ (original isNil
- 			or: [original class
- 					~= (self classFor: aString)])
- 		ifTrue: [replacement := self newNamed: aString.
- 			original
- 				ifNotNil: [replacement copySameFrom: original].
- 			replacement register; yourself]
- 		ifFalse: [original]!

Item was removed:
- ----- Method: PackageInfo class>>newNamed: (in category 'private') -----
- newNamed: aString 
- 	^ (self classFor: aString) new packageName: aString;
- 		 yourself!