--- a/Tools__ClassList.st	Sat Mar 17 20:05:16 2012 +0000
+++ b/Tools__ClassList.st	Sun Mar 18 17:14:30 2012 +0000
@@ -1103,9 +1103,19 @@
                         ] ifFalse:[
                             cat := self class nameListEntryForNonStatic.
                         ].
-                        cls methodDictionary keysAndValuesDo:[:sel :mthd |
-                            whatToDo value:cls value:cat value:sel value:mthd.
-                        ].                            
+                        "Handle Java classes specially, their static methods
+                         are in inst method dictionary..."
+                        cls theNonMetaclass isJavaClass ifTrue:[
+                            cls theNonMetaclass methodDictionary keysAndValuesDo:[:sel :mthd |
+                                mthd isStatic == cls isMeta ifTrue:[
+                                    whatToDo value:cls value:cat value:sel value:mthd.
+                                ]
+                            ].                            
+                        ] ifFalse:[
+                            cls methodDictionary keysAndValuesDo:[:sel :mthd |
+                                whatToDo value:cls value:cat value:sel value:mthd.
+                            ].                            
+                        ].
 
                     ].
                 ].
@@ -2017,6 +2027,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__ClassList.st 7911 2012-02-22 09:55:48Z vranyj1 $'
+    ^ '$Id: Tools__ClassList.st 7941 2012-03-18 17:14:30Z vranyj1 $'
 ! !
-