diff -r c88deb246b08 -r 3d03ca477eb7 Tools__ClassList.st
--- a/Tools__ClassList.st	Tue Oct 08 14:36:30 2013 +0100
+++ b/Tools__ClassList.st	Mon Oct 14 22:45:44 2013 +0100
@@ -1494,7 +1494,7 @@
     aClassList do:[:cls |
         cls isJavaClass ifTrue:[
             javaClassCountsByBame 
-                at: cls name 
+                at: cls binaryName 
                 put: (javaClassCountsByBame at: cls ifAbsent:[0]) + 1
         ]
     ].
@@ -1511,7 +1511,7 @@
 
                             nm := self nameListEntryFor:cls withNameSpace:showNamespaces.
                             cls isJavaClass ifTrue:[
-                                (javaClassCountsByBame at: cls name) > 1 ifTrue:[
+                                (javaClassCountsByBame at: cls binaryName) > 1 ifTrue:[
                                     | cl clstring |
 
                                     cl := cls classLoader.
@@ -1680,17 +1680,7 @@
             |newClass|
 
             meta := cls isMeta.
-            "/ Sigh, special care has to be taken for Java classes as
-            "/ for them, !!!!!! (environment at: javaClass name) ~~ javaClass !!!!!!
-            cls theNonMetaclass isJavaClass ifTrue:[
-                "/ Can't use JavaVM>>classNamed:definedBy: for Java classes because environment
-                "/ could not be Java class. Do a full search instead, sigh...
-                newClass := environment allClasses 
-                            detect:[:each|each isJavaClass and:[each name == cls theNonMetaclass name and:[each classLoader == cls theNonMetaclass classLoader]]]
-                            ifNone:[nil].
-            ] ifFalse:[
-                newClass := environment at:(cls theNonMetaclass name).
-            ].
+            newClass := environment at:(cls theNonMetaclass name).
             newClass isNil ifTrue:[
                 newClass := cls
             ] ifFalse:[
@@ -1707,17 +1697,7 @@
 
             cls notNil ifTrue:[
                 meta := cls isMeta.
-                "/ Sigh, special care has to be taken for Java classes as
-                "/ for them, !!!!!! (environment at: javaClass name) ~~ javaClass !!!!!!
-                cls theNonMetaclass isJavaClass ifTrue:[
-                    "/ Can't use JavaVM>>classNamed:definedBy: for Java classes because environment
-                    "/ could not be Java class. Do a full search instead, sigh...
-                    newClass := environment allClasses 
-                                detect:[:each|each isJavaClass and:[each name == cls theNonMetaclass name and:[each classLoader == cls theNonMetaclass classLoader]]]
-                                ifNone:[nil].                    
-                ] ifFalse:[
-                    newClass := environment at:(cls theNonMetaclass name).
-                ].
+                newClass := environment at:(cls theNonMetaclass name).
                 newClass isNil ifTrue:[
                     newClass := cls
                 ] ifFalse:[
@@ -1799,11 +1779,7 @@
                             collect:[:item | 
                                 |cls|
 
-                                item theNonMetaclass isJavaClass ifTrue:[
-                                    cls := environment allClasses detect:[:each | each name = item theNonMetaclass name and:[each classLoader == item theNonMetaclass classLoader]] ifNone:[nil].
-                                ] ifFalse:[
-                                    cls := environment at:item theNonMetaclass name.   
-                                ].
+                                cls := environment at:item theNonMetaclass name.   
                                 newList identityIndexOf:cls]
                             thenSelect:[:index | index ~~ 0].