--- a/Project.st	Mon Nov 12 18:26:16 2001 +0100
+++ b/Project.st	Mon Nov 12 19:22:34 2001 +0100
@@ -465,6 +465,17 @@
     "Modified: 3.12.1995 / 13:58:04 / cg"
 !
 
+addClassRemoveChange:oldClassName
+    "add a class-remove-change to the current project"
+
+    |p|
+
+    p := CurrentProject.
+    p notNil ifTrue:[
+        p addClassRemoveChange:oldClassName 
+    ]
+!
+
 addClassRenameChangeFrom:oldName to:newName
     "add a class-rename-change to the current project"
 
@@ -3961,6 +3972,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.176 2001-11-08 18:27:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.177 2001-11-12 18:22:34 cg Exp $'
 ! !
 Project initialize!