--- a/Class.st	Thu Apr 13 12:49:52 2000 +0200
+++ b/Class.st	Thu Apr 13 12:51:54 2000 +0200
@@ -1049,11 +1049,7 @@
          can it be done ?
          (all of my methods must have a source)
         "
-        self methodDictionary do:[:aMethod |
-            aMethod source isNil ifTrue:[^false].
-            aMethod hasPrimitiveCode ifTrue:[^ false].
-        ].
-        self class methodDictionary do:[:aMethod |
+        self allSelectorsAndMethodsDo:[:sel :aMethod |
             aMethod source isNil ifTrue:[^false].
             aMethod hasPrimitiveCode ifTrue:[^ false].
         ].
@@ -4096,5 +4092,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.370 2000-03-30 14:29:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.371 2000-04-13 10:51:54 cg Exp $'
 ! !