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]!