--- a/Class.st	Thu Aug 28 17:50:52 2003 +0200
+++ b/Class.st	Fri Aug 29 17:51:23 2003 +0200
@@ -550,7 +550,15 @@
 category:aStringOrSymbol
     "set the category of the class to be the argument, aStringOrSymbol"
 
+    |ns|
+
     self setCategory:aStringOrSymbol.
+    Project addChangeRecordForClass:self.
+    ns := self nameSpace.
+    ns changed:#organization.
+    ns ~~ Smalltalk ifTrue:[
+        Smalltalk changed:#organization.
+    ]
 !
 
 classFilename
@@ -5034,5 +5042,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.442 2003-07-17 13:45:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.443 2003-08-29 15:51:23 cg Exp $'
 ! !