--- a/Class.st	Thu Aug 24 15:10:03 2006 +0200
+++ b/Class.st	Thu Aug 24 15:10:31 2006 +0200
@@ -808,11 +808,20 @@
 package:aSymbol
     "set the package of the class."
 
+    |newPackage oldPackage|
+
     aSymbol == Project noProjectID ifTrue:[
-        package := nil
+        newPackage := nil
     ] ifFalse:[
-        package := aSymbol
-    ]
+        newPackage := aSymbol
+    ].
+    package ~= newPackage ifTrue:[
+        oldPackage := package.
+        package := newPackage.
+
+        self changed:#package.
+        Smalltalk changed:#projectOrganization with:(Array with:self with:oldPackage).
+    ].
 
     "Modified: / 09-08-2006 / 17:58:53 / fm"
 !
@@ -4589,5 +4598,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.499 2006-08-24 08:57:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.500 2006-08-24 13:10:31 cg Exp $'
 ! !