First fix for problem described in the other thread ("renaming a class
causes invalid super pointer").

This fixes the VM crash but not the issue with the super call
recursion..  Anyone have any ideas about that?  It appears to be a
problem somewhere in ClassBuilder..

On Fri, Jan 16, 2015 at 2:40 PM,  <commits at source.squeak.org> wrote:
> A new version of Environments was added to project The Inbox:
> http://source.squeak.org/inbox/Environments-cmm.52.mcz
>
> ==================== Summary ====================
>
> Name: Environments-cmm.52
> Author: cmm
> Time: 16 January 2015, 2:40:52.666 pm
> UUID: 3da327fd-f1d6-49e1-ac81-0207b9264153
> Ancestors: Environments-cmm.51, Environments-nice.47
>
> - Roll back cwp.50 because creating a new binding leaves the CM-literal bindings in their old state.
> - Don't signal #binding:removedFrom: because it's becoming the literal in CM's to a newly created Undeclared literal with the old name.
> - So since we no longer signal removed: don't signal #binding:addedTo: either.
>         Renaming is a updating of a binding, not a removing or adding.
>
> =============== Diff against Environments-cmm.51 ===============
>
> Item was changed:
>   ----- Method: Environment>>renameClass:from:to: (in category 'classes and traits') -----
>   renameClass: aClass from: oldName to: newName
>         "Rename the class, aClass, to have the title newName."
>
>         | binding category |
>         category := self organization categoryOfElement: oldName.
>         self organization classify: newName under: category suppressIfDefault: true.
>         self organization removeElement: oldName.
>
> +       binding := self associationAt: oldName.
> -       binding := self declarationOf: oldName.
>         declarations removeKey: oldName.
> + "     self binding: binding removedFrom: self."
> -       self binding: binding removedFrom: self.
>
> +       binding key: newName.
> -       binding := newName => aClass.
>         declarations add: binding.
> + "     self binding: binding addedTo: self."
> -       self binding: binding addedTo: self.
>
>         Smalltalk renamedClass: aClass from: oldName to: newName.
>         SystemChangeNotifier uniqueInstance
>                 classRenamed: aClass
>                 from: oldName
>                 to: newName
>                 inCategory: category!
>
>