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

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

Name: Kernel-cmm.518
Author: cmm
Time: 16 November 2010, 5:41:37.87 pm
UUID: 1fd9fc1b-9eb5-4b10-a4e6-2a166ecd358b
Ancestors: Kernel-dtl.517

General Singleton.

=============== Diff against Kernel-dtl.517 ===============

Item was added:
+ Object subclass: #Singleton
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'Kernel-Objects'!
+ Singleton class
+ 	instanceVariableNames: 'current'!
+ Singleton class
+ 	instanceVariableNames: 'current'!

Item was added:
+ ----- Method: Singleton classSide>>current (in category 'accessing') -----
+ current
+ 
+ 	^ current ifNil: [ current := self new ]!

Item was added:
+ ----- Method: Singleton classSide>>current: (in category 'accessing') -----
+ current: anObject
+ 	"Set the current instance to anObject."
+ 	current := anObject!

Item was added:
+ ----- Method: Singleton classSide>>initialize (in category 'actions') -----
+ initialize
+ 
+ 	super initialize.
+ 	self reset!

Item was added:
+ ----- Method: Singleton classSide>>reset (in category 'actions') -----
+ reset
+ 
+ 	current := nil!