--- a/Smalltalk.st	Sat Jun 12 00:15:51 2004 +0200
+++ b/Smalltalk.st	Mon Jun 14 17:09:01 2004 +0200
@@ -1008,17 +1008,18 @@
     "change a classes category, add a change record,
      send change notifications"
 
-    |ns|
-
-    aClass category ~= newCategory ifTrue:[
-	aClass category:(newCategory withoutSeparators asSymbol). 
-
-	"notify change of category"
-	ns := aClass environment ? self.
-	ns changed:#organization.
-	ns ~~ self ifTrue:[
-	    self changed:#organization.
-	]
+    |ns oldCategory|
+
+    oldCategory := aClass category.
+    oldCategory ~= newCategory ifTrue:[
+        aClass category:(newCategory withoutSeparators asSymbol). 
+
+        "notify change of category"
+        ns := aClass environment ? self.
+        ns changed:#organization with:(aClass -> oldCategory).
+        ns ~~ self ifTrue:[
+            self changed:#organization with:(aClass -> oldCategory).
+        ]
     ].
 
     "
@@ -6382,5 +6383,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.647 2004-06-08 10:29:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.648 2004-06-14 15:09:01 ca Exp $'
 ! !