--- a/Tools__ClassList.st	Fri Mar 30 14:35:31 2012 +0100
+++ b/Tools__ClassList.st	Sat Mar 31 01:16:30 2012 +0100
@@ -1107,9 +1107,15 @@
                          are in inst method dictionary..."
                         cls theNonMetaclass isJavaClass ifTrue:[
                             cls theNonMetaclass methodDictionary keysAndValuesDo:[:sel :mthd |
-                                mthd isStatic == cls isMeta ifTrue:[
+                                (mthd isJavaMethod and:[mthd isStatic == cls isMeta]) ifTrue:[
                                     whatToDo value:cls value:cat value:sel value:mthd.
                                 ]
+                            ].
+                            "Plus add all possible non-Java methods (proxies, extensions)"
+                            cls methodDictionary keysAndValuesDo:[:sel :mthd |
+                                mthd isJavaMethod ifFalse:[
+                                    whatToDo value:cls value:cat value:sel value:mthd.
+                                ].
                             ].                            
                         ] ifFalse:[
                             cls methodDictionary keysAndValuesDo:[:sel :mthd |
@@ -2027,5 +2033,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__ClassList.st 7952 2012-03-21 17:50:14Z vranyj1 $'
+    ^ '$Id: Tools__ClassList.st 7961 2012-03-31 00:16:30Z vranyj1 $'
 ! !