--- 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 $'
 ! !