Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.887.mcz
==================== Summary ====================
Name: Kernel-eem.887 Author: eem Time: 27 November 2014, 1:19:50.961 pm UUID: 888d2632-2d0a-49dd-b83a-b5aceb2c939d Ancestors: Kernel-eem.886
A few more cases in COntextPart where objectClass: should be used instead of class to avoid proxy issues.
=============== Diff against Kernel-eem.886 ===============
Item was changed: ----- Method: ContextPart>>methodClass (in category 'debugger access') ----- methodClass "Answer the class in which the receiver's method was found." + ^self method methodClass ifNil: [self objectClass: self receiver].! - ^self method methodClass ifNil:[self receiver class].!
Item was changed: ----- Method: ContextPart>>print:on: (in category 'debugger access') ----- print: anObject on: aStream + "Safely print anObject in the face of direct ProtoObject subclasses." + | objClass title | + objClass := self objectClass: anObject. + (objClass canUnderstand: #printOn:) ifTrue: + [^anObject printOn: aStream]. + title := objClass name. - "Safely print anObject in the face of direct ProtoObject subclasses" - | title | - (anObject class canUnderstand: #printOn:) - ifTrue:[^anObject printOn: aStream]. - title := anObject class name. aStream nextPutAll: (title first isVowel ifTrue: ['an '] ifFalse: ['a ']); nextPutAll: title!
Item was changed: ----- Method: ContextPart>>selectorCategory (in category 'accessing') ----- selectorCategory + "Answer the category to which this message belongs (relative to the receiver). + If no superclass categorises this message, use the default." + | rcvrClass organizers | + rcvrClass := self objectClass: self receiver. + organizers := rcvrClass withAllSuperclasses collect: [:ea | ea organization]. + organizers addFirst: rcvrClass organization. + ^(organizers collect: [ :org | org categoryOfElement: self selector]) + detect: [:ea | ea ~= ClassOrganizer default and: [ea ~= nil]] - "Return the category to which this message belongs (relative to the receiver). If no superclass categorises this message, use the default." - | organizers | - organizers := self receiver class withAllSuperclasses collect: [:ea | ea organization]. - organizers addFirst: self receiver class organization. - ^ (organizers collect: [ :org | org categoryOfElement: self selector]) - detect: [:ea | ea ~= ClassOrganizer default and: [ ea ~= nil]] ifNone: [ClassOrganizer default]!