--- a/BrowserView.st	Fri Oct 08 12:41:09 1999 +0200
+++ b/BrowserView.st	Sat Oct 09 13:36:34 1999 +0200
@@ -4920,7 +4920,7 @@
 classModifyPackage
     "change the classes package assignment (dangerous)"
 
-    |newPackage|
+    |newPackage p|
 
     currentClass owningClass notNil ifTrue:[
         self warn:'Private classes always belong to the owners package.\\Cannot change the packageID.' withCRs.
@@ -4941,7 +4941,10 @@
     ].
 
     self doClassMenu:[:currentClass |
-        currentClass package:newPackage
+        currentClass package:newPackage.
+        (p := Project projectNamed:newPackage) notNil ifTrue:[
+            p addClass:currentClass
+        ]
     ]
 
     "Created: 23.11.1995 / 11:41:38 / cg"
@@ -13955,6 +13958,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.563 1999-10-08 10:41:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.564 1999-10-09 11:36:34 cg Exp $'
 ! !
 BrowserView initialize!