Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.410.mcz
==================== Summary ====================
Name: System-fbs.410 Author: fbs Time: 9 January 2011, 7:04:30.976 pm UUID: 5c92be57-a803-8a41-89f4-c5655001ef11 Ancestors: System-ul.409
Ensure that classOrTraitNamed: doesn't return globals.
=============== Diff against System-ul.409 ===============
Item was changed: ----- Method: SystemDictionary>>classOrTraitNamed: (in category 'classes and traits') ----- classOrTraitNamed: aString "aString is either a class or trait name or a class or trait name followed by ' class' or 'classTrait' respectively. Answer the class or metaclass it names."
+ | meta baseName | - | meta baseName baseClass | (aString endsWith: ' class') ifTrue: [meta := true. baseName := aString copyFrom: 1 to: aString size - 6] ifFalse: [ (aString endsWith: ' classTrait') ifTrue: [ meta := true. baseName := aString copyFrom: 1 to: aString size - 11] ifFalse: [ meta := false. baseName := aString]]. + + ^self at: baseName asSymbol ifPresent: + [ :global | + global isBehavior ifTrue: + [ meta + ifFalse: [ global ] + ifTrue: [ global classSide ]]]! - baseClass := Smalltalk at: baseName asSymbol ifAbsent: [^ nil]. - meta - ifTrue: [^ baseClass classSide] - ifFalse: [^ baseClass]!
packages@lists.squeakfoundation.org