Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.422.mcz

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

Name: System-ul.422
Author: ul
Time: 12 February 2011, 1:22:06.651 am
UUID: eadb7167-3b8f-6543-a82c-645058d3a2a4
Ancestors: System-laza.421

- deprecated SmalltalkImage >> #cleanUpUndoCommands, because it's moved to Command class >> #cleanUp
- removed #cleanUpUndoCommands from SmalltalkImage class >> #cleanUp

=============== Diff against System-laza.421 ===============

Item was changed:
  ----- Method: SmalltalkImage class>>cleanUp (in category 'class initialization') -----
  cleanUp
  	"Flush caches"
  
  	Smalltalk flushClassNameCache.
- 	Smalltalk cleanUpUndoCommands.
  	Undeclared removeUnreferencedKeys.
  	Smalltalk forgetDoIts.!

Item was changed:
  ----- Method: SmalltalkImage>>cleanUpUndoCommands (in category 'shrinking') -----
  cleanUpUndoCommands
+ 	
+ 	self deprecated: 'This method was superseded by Command class >> #cleanUp'.
+ 	globals at: #Command ifPresent: [ :command | command cleanUp ]!
- 	"Smalltalk cleanUpUndoCommands"  "<== print this to get classes involved"
- 
- 	| classes keysToBeRemoved |
- 	classes := Bag new.
- 	keysToBeRemoved := OrderedCollection new.
- 	SystemNavigation default allObjectsDo: [ :object |
- 		object isMorph ifTrue: [
- 			object otherProperties ifNotNil: [ :properties |
- 				properties keysAndValuesDo: [ :key :value |
- 					value class == Command ifTrue: [
- 						keysToBeRemoved add: key ] ].
- 				keysToBeRemoved ifNotEmpty: [
- 					classes add: object className withOccurrences: keysToBeRemoved size.
- 					keysToBeRemoved do: [ :each |
- 						object removeProperty: each ].
- 					keysToBeRemoved reset ] ] ] ].
- 	^classes!