| cs |
	SystemOrganization removeCategoriesMatching: 'Defart*'.
	cs := ChangeSorter changeSetNamed: 'Defart.st'.
	cs
		ifNotNil: [ChangeSorter removeChangeSet: cs].
	Smalltalk garbageCollect