'From etoys3.0 of 24 February 2008 [latest update: #1957] on 7 April 2008 at 3:03:48 pm'!

!ServerDirectory class methodsFor: 'olpc' stamp: 'yo 4/7/2008 15:00'!
cleanupNonEssentialServerEntries

	ServerDirectory inImageServers keys do: [:n |
		n = 'etoys' ifFalse: [ServerDirectory removeServerNamed: n ifAbsent: []].
	].
	PrefsLocalProjectDirectories _ nil.
	self resetLocalProjectDirectories.
! !

"Postscript:
"
ServerDirectory cleanupNonEssentialServerEntries.!