--- a/Tools__MethodCategoryList.st	Tue Oct 08 14:36:30 2013 +0100
+++ b/Tools__MethodCategoryList.st	Mon Oct 14 22:45:44 2013 +0100
@@ -412,18 +412,8 @@
     refetch := [:oldClass | 
                     |nm cls newClass|
 
-                    "/ Sign, special care has to be taken for Java classes as
-                    "/ for them, !!!!!! (Smalltalk at: javaClass name) ~~ javaClass !!!!!!
-                    nm := oldClass theNonMetaclass name.
-                    oldClass 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 == oldClass theNonMetaclass name and:[each classLoader == oldClass theNonMetaclass classLoader]]]
-                                    ifNone:[nil].                        
-                    ] ifFalse:[
-                        newClass := Smalltalk at:nm
-                    ].
+		    nm := oldClass name.
+                    newClass := Smalltalk at:nm.
 
                     oldClass isMeta ifTrue:[
                         newClass isNil ifTrue:[