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

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

Name: System-dtl.177
Author: dtl
Time: 27 November 2009, 3:16:46 am
UUID: 2643ef5e-822c-4088-9233-416c30a23cdf
Ancestors: System-dtl.176

Bug fix - Change Project class>>deletingProject to use isKindOf: Project. Still need to factor out ProjectViewMorph dependencies in this method.

=============== Diff against System-dtl.176 ===============

Item was changed:
  ----- Method: Project class>>deletingProject: (in category 'utilities') -----
  deletingProject: outgoingProject
  
  	ImageSegment allSubInstancesDo: [:seg |
  		seg ifOutPointer: outgoingProject thenAllObjectsDo: [:obj |
  			(obj isKindOf: ProjectViewMorph) ifTrue: [
  				obj deletingProject: outgoingProject.  obj abandon].
+ 			(obj isKindOf: Project) ifTrue: [obj deletingProject: outgoingProject]]].
- 			obj class == Project ifTrue: [obj deletingProject: outgoingProject]]].
  	Project allProjects do: [:p | p deletingProject: outgoingProject].	"ones that are in"
  	ProjectViewMorph allSubInstancesDo: [:p | 
  		p deletingProject: outgoingProject.
  		p project == outgoingProject ifTrue: [p abandon]].
  
  	AllProjects := self allProjects copyWithout: outgoingProject.!