A new version of Environments was added to project The Inbox:
http://source.squeak.org/inbox/Environments-cwp.5.mcz

==================== Summary ====================

Name: Environments-cwp.5
Author: cwp
Time: 3 August 2012, 11:47:34.492 pm
UUID: 6eeb2f90-ea58-4ef1-9ca5-7e826ac1079c
Ancestors: Environments-cmm.4

Add an #uninstall method and call it from a class initializer.

=============== Diff against Environments-cmm.4 ===============

Item was changed:
  ----- Method: Environment class>>initialize (in category 'as yet unclassified') -----
  initialize
+ 	self uninstall!
- 	self install!

Item was added:
+ ----- Method: Environment class>>uninstall (in category 'as yet unclassified') -----
+ uninstall
+ 	| globals sysdict |
+ 	self environment class == self ifFalse: [self error: 'Not installed'].
+ 	globals := Smalltalk globals instVarNamed: 'contents'.
+ 	sysdict := SystemDictionary new: globals size.
+ 	globals associationsDo: [:ea | sysdict add: ea].
+ 	Smalltalk globals becomeForward: sysdict.!