In Class>>rename:, if the name is in Undeclared, the class is not renamed,
although the notifier suggests it should be renamed anyway. I'd say that's
a bug (just had that problem). Fix attached. Any objections?

-- Bert
-------------- next part --------------
'From Squeak2.8alpha of 18 January 2000 [latest update: #2210] on 31 May 2000 at 5:31:29 pm'!
"Change Set:		classRename-bf
Date:			31 May 2000
Author:			Bert Freudenberg

Renames a class even if it is declared undeclared. Huh?"!


!Class methodsFor: 'class name' stamp: 'bf 5/31/2000 17:24'!
rename: aString
	"The new name of the receiver is the argument, aString."

	| newName |
	(newName _ aString asSymbol) ~= self name
		ifTrue:
			[(Smalltalk includesKey: newName)
				ifTrue: [^self error: newName , ' already exists'].
			(Undeclared includesKey: newName)
				ifTrue: [SelectionMenu notify: 'There are references to, ' , aString printString , '
from Undeclared. Check them after this change.'].
			Smalltalk renameClass: self as: newName.
			name _ newName]! !