Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.769.mcz

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

Name: Kernel-fbs.769
Author: fbs
Time: 5 June 2013, 8:54:16.943 am
UUID: 29729ba9-7e21-44eb-8b8f-7e71e228aa6e
Ancestors: Kernel-fbs.768

Avoid using Utilities; UIManager default provides a better hook.

=============== Diff against Kernel-fbs.768 ===============

Item was changed:
  ----- Method: ClassBuilder class>>checkClassHierarchyConsistency (in category 'cleanup obsolete classes') -----
  checkClassHierarchyConsistency
  	"Check the consistency of the class hierarchy. The class hierarchy is consistent if the following
  	two logical equivalences hold for classes A and B:
  	- B is obsolete and 'B superclass' yields A  <-->  'A obsoleteSubclasses' contains B
  	- B is not obsolete and 'B superclass' yields A  <-->  'A subclasses' contains B"
+ 	self informUserDuring:[:bar|
- 	Utilities informUserDuring:[:bar|
  		self checkClassHierarchyConsistency: bar.
  	].!

Item was changed:
  ----- Method: ClassBuilder class>>cleanupAndCheckClassHierarchy (in category 'cleanup obsolete classes') -----
  cleanupAndCheckClassHierarchy
  	"Makes the class hierarchy consistent and removes obsolete classes from the SystemDictionary.
  	Afterwards it checks whether the hierarchy is really consistent."
+ 	self informUserDuring:[:bar|
- 	Utilities informUserDuring:[:bar|
  		self cleanupAndCheckClassHierarchy: bar.
  	].
  !

Item was changed:
  ----- Method: ClassBuilder class>>cleanupClassHierarchy (in category 'cleanup obsolete classes') -----
  cleanupClassHierarchy
  	"Makes the class hierarchy consistent and removes obsolete classes from the SystemDictionary."
+ 	UIManager default informUserDuring:[:bar|
- 	Utilities informUserDuring:[:bar|
  		self cleanupClassHierarchy: bar.
  	].!

Item was changed:
  ----- Method: ClassBuilder>>informUserDuring: (in category 'private') -----
  informUserDuring: aBlock
  	self class isSilent ifTrue:[^aBlock value].
+ 	UIManager default informUserDuring:[:bar|
- 	Utilities informUserDuring:[:bar|
  		progress := bar.
  		aBlock value].
  	progress := nil.!

Item was changed:
  ----- Method: Integer class>>verbosePrimesUpTo:do: (in category 'prime numbers') -----
  verbosePrimesUpTo: max do: aBlock
  	"Integer verbosePrimesUpTo: SmallInteger maxVal" "<- heh, heh"
  	"Compute primes up to max, but be verbose about it"
  	| lastTime |
  	lastTime := Time millisecondClockValue.
+ 	UIManager default informUserDuring:[:bar|
- 	Utilities informUserDuring:[:bar|
  		bar value:'Computing primes...'.
  		self primesUpTo: max do:[:prime| | nowTime |
  			aBlock value: prime.
  			nowTime := Time millisecondClockValue.
  			(nowTime - lastTime > 1000) ifTrue:[
  				lastTime := nowTime.
  				bar value:'Last prime found: ', prime printString]]].!