from preamble:

"Change Set:		FixServerDirectories-nk
Date:			12 December 2003
Author:			Ned Konz

Change Set 5605CleanupUpdateServers-dew did not clean up the
ServerDirectory servers dictionary properly.

This quickie will remove the bad servers.
"
| badOnes |
badOnes _ Dictionary new.
ServerDirectory servers keysAndValuesDo: [ :k :v |
	(v isKindOf: ServerDirectory) ifFalse: [ badOnes at: k put: v ] ].
badOnes keysDo: [ :k | ServerDirectory servers removeKey: k ].
badOnes inspect.
!
-------------- next part --------------
A non-text attachment was scrubbed...
Name: FixServerDirectories-nk.cs.gz
Type: application/octet-stream
Size: 354 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20031212/f26c2ffb/FixServerDirectories-nk.cs.obj