--- a/AbstractSourceCodeManager.st	Wed Apr 12 23:41:37 2000 +0200
+++ b/AbstractSourceCodeManager.st	Thu Apr 13 12:53:40 2000 +0200
@@ -334,15 +334,7 @@
     otherPackages := Set new.
     methodsFromOtherPackages := IdentitySet new.
 
-    aClass methodDictionary keysAndValuesDo:[:sel :mthd |
-        |mthdPackage|
-
-        (mthdPackage := mthd package) ~= clsPackage ifTrue:[
-            methodsFromOtherPackages add:mthd.
-            otherPackages add:mthdPackage.
-        ]
-    ].
-    aClass class methodDictionary keysAndValuesDo:[:sel :mthd |
+    aClass allSelectorsAndMethodsDo:[:sel :mthd |
         |mthdPackage|
 
         (mthdPackage := mthd package) ~= clsPackage ifTrue:[
@@ -378,10 +370,7 @@
         ].
 
         "/ change all method's packageID to the classes packageId
-        aClass methodDictionary keysAndValuesDo:[:sel :mthd |
-            mthd package:clsPackage
-        ].
-        aClass class methodDictionary keysAndValuesDo:[:sel :mthd |
+        aClass allSelectorsAndMethodsDo:[:sel :mthd |
             mthd package:clsPackage
         ].
         ^ #all
@@ -1225,7 +1214,7 @@
     ^ nil
 
     "
-     SourceCodeManager revisionInfoFromString:'$Revision: 1.116 $'
+     SourceCodeManager revisionInfoFromString:'$Revision: 1.117 $'
      SourceCodeManager revisionInfoFromString:(SourceCodeManager version)
     "
 
@@ -1729,6 +1718,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.116 2000-04-05 19:32:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.117 2000-04-13 10:53:40 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!