David T. Lewis uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-dtl.138.mcz

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

Name: KernelTests-dtl.138
Author: dtl
Time: 14 February 2010, 10:32:40.507 pm
UUID: 7c47253e-2f7e-455d-be29-272fbea4a7be
Ancestors: KernelTests-dtl.137

Fix cut and paste editing error in previous update.

=============== Diff against KernelTests-dtl.137 ===============

Item was changed:
  ----- Method: DependentsArrayTest>>testCanDiscardEdits (in category 'testing') -----
  testCanDiscardEdits
  	"self debug: #testCanDiscardEdits."
  
  	| anObject aView  |
  	anObject := Object new.
  	(Smalltalk hasClassNamed: #StringHolderView)
  		ifTrue: ["Use MVC view if available"
  			aView := StringHolderView new
  				model: Transcript;
  				window: (0 at 0 extent: 60 at 60);
  				borderWidth: 1.]
  		ifFalse: ["Otherwise use a Morphic view"
  			aView := PluggableTextMorph new model: Transcript].
  	self assert: aView notNil. "require either a StringHolderView or PluggableTextMorph"
- 	aView := StringHolderView new
- 		model: Transcript;
- 		window: (0 at 0 extent: 60 at 60);
- 		borderWidth: 1.
  	aView := PluggableTextMorph new model: Transcript.
  	aView hasUnacceptedEdits: true.
  	anObject addDependent: Object new. "this entry should be garbage collected"
  	anObject addDependent: aView.
  
  	Smalltalk garbageCollect. "force garbage collection"
  
  	self
  		should: [anObject dependents size = 1]
  		description: 'first dependent of anObject should have been collected, second should not'.
  
  	self
  		shouldnt: [anObject canDiscardEdits]
  		description: 'anObject cannot discard edits because aView is a dependent of anObject and aView has unaccepted edits'.!