--- a/AbstractSourceCodeManager.st	Thu Dec 07 15:13:50 2000 +0100
+++ b/AbstractSourceCodeManager.st	Fri Dec 08 01:01:48 2000 +0100
@@ -418,6 +418,11 @@
         ]
     ].
     otherPackages isEmpty ifTrue:[
+        aClass allPrivateClassesDo:[:eachPrivateClass |
+            eachPrivateClass allSelectorsAndMethodsDo:[:sel :mthd |
+                mthd setPackage:clsPackage
+            ]
+        ].
         ^ #all
     ].
 
@@ -484,6 +489,11 @@
         aClass allSelectorsAndMethodsDo:[:sel :mthd |
             mthd setPackage:clsPackage
         ].
+        aClass allPrivateClassesDo:[:eachPrivateClass |
+            eachPrivateClass allSelectorsAndMethodsDo:[:sel :mthd |
+                mthd setPackage:clsPackage
+            ]
+        ].
         aClass changed:#projectOrganization.
         Smalltalk changed:#projectOrganization with:(Array with:aClass). 
         ^ #all
@@ -1925,6 +1935,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.135 2000-12-07 13:16:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.136 2000-12-08 00:01:48 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!