A new version of Kernel was added to project The Inbox:
http://source.squeak.org/inbox/Kernel-cbc.1164.mcz

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

Name: Kernel-cbc.1164
Author: cbc
Time: 26 March 2018, 4:24:34.650291 pm
UUID: 1db3c61f-3486-5847-bb7b-2e3409818f92
Ancestors: Kernel-cbc.1163

Removed implementation from Boolean>>xor: (made it sublcass responsibility).
Chose a better method argument name for #xor:

=============== Diff against Kernel-cbc.1163 ===============

Item was changed:
  ----- Method: Boolean>>xor: (in category 'logical operations') -----
+ xor: aBooleanOrBlock 
+ 	"Exclusive OR. Answer true if self is not equivalent to aBooleanOrBlock.
+ 	aBooleanOrBlock is either a boolean, or evaluates to a boolean."
- xor: aBoolean 
- 	"Exclusive OR. Answer true if the receiver is not equivalent to aBoolean."
  
+ 	^self subclassResponsibility!
- 	^(self == aBoolean) not!

Item was changed:
  ----- Method: False>>xor: (in category 'logical operations') -----
+ xor: aBooleanOrBlock
+ 	"aBooleanOrBlock is either a boolean, or an object who's #value returns a boolean (usually a block)."
+ 	^aBooleanOrBlock value ifTrue: [ true ] ifFalse: [ false ]!
- xor: aBoolean
- 	"aBoolean is either a boolean, or an object who's #value returns a boolean (usually a block)."
- 	^aBoolean value ifTrue: [ true ] ifFalse: [ false ]!

Item was changed:
  ----- Method: True>>xor: (in category 'logical operations') -----
+ xor: aBooleanOrBlock
+ 	"aBooleanOrBlock is either a boolean, or an object who's #value returns a boolean (usually a block)."
+ 	^aBooleanOrBlock value ifTrue: [ false ] ifFalse: [ true ]!
- xor: aBoolean
- 	"aBoolean is either a boolean, or an object who's #value returns a boolean (usually a block)."
- 	^aBoolean value ifTrue: [ false ] ifFalse: [ true ]!