--- a/JavaTestsLoader.st	Tue Oct 08 19:16:39 2013 +0100
+++ b/JavaTestsLoader.st	Thu Oct 10 00:08:11 2013 +0100
@@ -181,7 +181,7 @@
 
     classes do:
         [:jclass|
-        ((self ignoredTestCaseNames includes: jclass name) not
+        ((self ignoredTestCaseNames includes: jclass binaryName) not
                 and:[jclass isTestCaseLike])
                     ifTrue:
                         [ | tc |
@@ -191,7 +191,7 @@
                                                 ].
                         tc isAbstract ifFalse:[javaTestCases add:tc ]]].
 
-    javaTestCases sort:[:a :b| a name < b name ].
+    javaTestCases sort:[:a :b| a binaryName < b binaryName ].
 
     javaTestCases do:
                 [:each | 
@@ -199,7 +199,7 @@
 
     ^suite
 
-    "Modified: / 23-07-2012 / 20:12:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-10-2013 / 22:48:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 ignoredTestCaseNames