--- a/ChangeSet.st	Sat Feb 05 15:14:27 2000 +0100
+++ b/ChangeSet.st	Sat Feb 05 15:28:34 2000 +0100
@@ -187,18 +187,12 @@
     "
 ! !
 
-!ChangeSet ignoredMethodsFor:'change management'!
-
-addClassCategoryChange:newCategory for:aClass
-    "add a classCategory change to the receiver"
+!ChangeSet methodsFor:'Compatibility - ST80'!
 
-    |newChange|
+changeClass:aClass
+    "dummy here"
 
-    newChange := ClassCategoryChange class:aClass category:newCategory.
-    self add:newChange
-
-    "Created: 3.12.1995 / 13:45:53 / cg"
-    "Modified: 15.7.1996 / 09:26:52 / cg"
+    "Created: / 4.2.2000 / 18:30:59 / cg"
 ! !
 
 !ChangeSet methodsFor:'change management'!
@@ -772,5 +766,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.40 2000-02-02 12:42:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.41 2000-02-05 14:28:07 cg Exp $'
 ! !

--- a/SystemOrganizer.st	Sat Feb 05 15:14:27 2000 +0100
+++ b/SystemOrganizer.st	Sat Feb 05 15:28:34 2000 +0100
@@ -76,6 +76,19 @@
     self error:'no such class'.
 !
 
+classify:aClassName under:newCategory
+    "change a classes category;
+     the argument is the classes name"
+
+    |cls|
+
+    cls := Smalltalk at:aClassName ifAbsent:nil.
+    cls notNil ifTrue:[^ cls category:newCategory].
+    self error:'no such class'.
+
+    "Created: / 4.2.2000 / 18:30:11 / cg"
+!
+
 listAtCategoryNamed:aCategory
     "return a collection of classes in aCategory."
 
@@ -134,5 +147,5 @@
 !SystemOrganizer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SystemOrganizer.st,v 1.3 2000-02-02 19:35:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SystemOrganizer.st,v 1.4 2000-02-05 14:28:34 cg Exp $'
 ! !