--- a/ClassDescription.st	Mon Feb 16 13:03:47 1998 +0100
+++ b/ClassDescription.st	Mon Feb 16 15:06:35 1998 +0100
@@ -621,10 +621,15 @@
 
     UpdateChangeFileQuerySignal raise ifTrue:[
         self writingChangePerform:#addChangeRecordForRemoveSelector:to: with:aSelector.
+
+        "this test allows a smalltalk without Projects/ChangeSets"
+        Project notNil ifTrue:[
+            Project addRemoveSelectorChange:aSelector in:self
+        ]
     ]
 
-    "Modified: 24.1.1997 / 19:10:48 / cg"
-    "Created: 2.4.1997 / 17:30:47 / stefan"
+    "Created: / 2.4.1997 / 17:30:47 / stefan"
+    "Modified: / 16.2.1998 / 12:45:45 / cg"
 !
 
 addChangeRecordForRenameCategory:oldCategory to:newCategory
@@ -2678,6 +2683,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.63 1998-01-27 23:34:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.64 1998-02-16 14:06:10 cg Exp $'
 ! !
 ClassDescription initialize!