Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.973.mcz

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

Name: Kernel-eem.973
Author: eem
Time: 5 January 2016, 5:36:08.334115 pm
UUID: e6c98ae5-bd1c-4d49-b6ae-16e6d94e8c22
Ancestors: Kernel-eem.972

Fix Delay printing and nuke the unused Fix Delay printing and nuke the unused.

Provide short-cuts for inteerPart and fractionPart in Integer given their use in ew.g. creating timestamps.

=============== Diff against Kernel-eem.972 ===============

Item was removed:
- ----- Method: Delay class>>scheduleDelay: (in category 'timer process') -----
- scheduleDelay: aDelay
- 	"Private. Schedule this Delay."
- 	
- 	aDelay resumptionTime: Time millisecondClockValue + aDelay delayDuration. 
- 		"Gary Chambers:  do the above here, via the high priority timer process to avoid rollover bug due to process pre-emption
- 		since the caller cannot use the AccessProtect semaphore."
- 	aDelay beingWaitedOn: true.
- 	ActiveDelay 
- 		ifNil: [ActiveDelay := aDelay]
- 		ifNotNil: [aDelay resumptionTime < ActiveDelay resumptionTime
- 			ifTrue: [SuspendedDelays add: ActiveDelay.
- 					ActiveDelay := aDelay]
- 			ifFalse: [SuspendedDelays add: aDelay]]
- !

Item was changed:
  ----- Method: Delay>>printOn: (in category 'printing') -----
  printOn: aStream
  	super printOn: aStream.
+ 	aStream
+ 		nextPut: $(;
+ 		print: delayDuration;
+ 		nextPutAll: ' msecs'.
+ 	beingWaitedOn ifTrue:
+ 		[aStream
+ 			nextPutAll: '; ';
+ 			print: resumptionTime - Time utcMicrosecondClock + 500 // 1000;
+ 			nextPutAll: ' msecs remaining'].
+ 	aStream nextPut: $)!
- 	aStream nextPutAll: '('; print: delayDuration; nextPutAll: ' msecs'.
- 	beingWaitedOn ifTrue:[
- 		aStream nextPutAll: '; '; print: resumptionTime - Time millisecondClockValue; nextPutAll: ' msecs remaining'.
- 	].
- 	aStream nextPutAll: ')'.!

Item was added:
+ ----- Method: Integer>>fractionPart (in category 'truncation and round off') -----
+ fractionPart
+ 	"Added for ANSI compatibility"
+ 	^0!

Item was added:
+ ----- Method: Integer>>integerPart (in category 'truncation and round off') -----
+ integerPart
+ 	"Added for ANSI compatibility"
+ 	^self!