--- a/Class.st	Mon Oct 09 15:22:19 2000 +0200
+++ b/Class.st	Mon Oct 09 16:31:20 2000 +0200
@@ -3362,7 +3362,7 @@
      into the sourceCode repository. (extensions are stored separate)" 
 
     self allSelectorsAndMethodsDo:[:sel :mthd |
-        mthd package ~= package ifTrue:[^ true].
+        mthd package = aPackageID ifTrue:[^ true].
     ].
     ^ false
 
@@ -4502,5 +4502,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.382 2000-10-09 13:22:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.383 2000-10-09 14:31:20 cg Exp $'
 ! !