from preamble:

"Change Set:		SM1Removal-gk
Date:			12 February 2004
Author:			Göran Krampe

This update removes old SM1 from the image and stores the
installedPackagesDictionary in a global for subsequent retrieval in the
next update that installs SM2."

"Begin by toasting the old SMLoader if present in image.
We also close any open loaders."
(Smalltalk hasClassNamed: #SMLoader) ifTrue: [
	(Smalltalk at: #SMLoader) allInstances
		do: [:e | e myDependents: #(). e delete].
	SystemOrganization removeSystemCategory: 'SM-Loader'].

"Remember installed packages if we have them and toast old SM."
(Smalltalk hasClassNamed: #SMSqueakMap) ifTrue: [
	Smalltalk at: #SM1InstalledPackagesDictionary
		put: (Smalltalk at: #SMSqueakMap) default installedPackagesDictionary.
	"This is a brutal hack, need to figure out why it is needed..."
	(Smalltalk at: #SMSqueakMap) setName: #SMSqueakMap.
	SystemOrganization removeSystemCategory: 'SM-domain']!
-------------- next part --------------
A non-text attachment was scrubbed...
Name: SM1Removal-gk.cs.gz
Type: application/octet-stream
Size: 550 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20040216/f1aa5b78/SM1Removal-gk.cs.obj