--- a/Class.st	Fri Feb 24 17:38:46 1995 +0100
+++ b/Class.st	Sun Feb 26 19:14:39 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.31 1995-02-22 03:34:50 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.32 1995-02-26 18:13:00 claus Exp $
 '!
 
 !Class class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.31 1995-02-22 03:34:50 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.32 1995-02-26 18:13:00 claus Exp $
 "
 !
 
@@ -839,6 +839,11 @@
 	].
     ].
 
+    self allSubclassesDo:[:aClass |
+	aClass unload
+    ].
+    Transcript showCr:'unloading ' , name.
+
     Smalltalk at:self name put:nil.
     Autoload addClass:self name inCategory:category.
     ^ true