--- a/Smalltalk.st	Mon Oct 26 17:19:51 2009 +0100
+++ b/Smalltalk.st	Mon Oct 26 17:23:54 2009 +0100
@@ -717,6 +717,19 @@
 
 !
 
+removeClassNamed: aName
+    "Invoked from fileouts:  if there is currently a class in the system named aName, then remove it.  
+     If anything untoward happens, report it in the Transcript.  "
+
+    | oldClass |
+
+    (oldClass := self at: aName asSymbol ifAbsent: [nil]) isNil ifTrue:[
+        Transcript showCR: 'Removal of class named ', aName, ' ignored because it does not exist.'.
+        ^ self
+    ].
+    oldClass removeFromSystem
+!
+
 renameClassNamed:oldName as:newName
     self renameClass:(self at:oldName) to:newName
 !
@@ -7308,9 +7321,9 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.900 2009-10-26 15:27:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.901 2009-10-26 16:23:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.900 2009-10-26 15:27:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.901 2009-10-26 16:23:54 cg Exp $'
 ! !