--- a/Tools__MethodCategoryList.st	Tue Jul 26 23:07:04 2016 +0100
+++ b/Tools__MethodCategoryList.st	Wed Jul 27 00:03:45 2016 +0100
@@ -1010,7 +1010,7 @@
                                                 (aClass isTestSelector:sel) ifTrue:[
                                                     |lastResultOrNil|
 
-                                                    lastResultOrNil := aClass rememberedOutcomeFor:sel.
+                                                    lastResultOrNil := aClass asTestCase rememberedOutcomeFor:sel.
                                                     includeIt := lastResultOrNil isNil 
                                                                 or:[lastResultOrNil result ~~ TestResult statePass]]]].    
                                                 
@@ -1140,6 +1140,7 @@
 
     "Created: / 05-02-2000 / 13:42:10 / cg"
     "Modified: / 18-09-2011 / 12:51:45 / cg"
+    "Modified: / 26-07-2016 / 23:31:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MethodCategoryList methodsFor:'private'!
@@ -1500,7 +1501,7 @@
                 (eachClass isTestSelector:mSelector) ifTrue:[
                     |lastResultOrNil|
                     
-                    lastResultOrNil := eachClass rememberedOutcomeFor:mSelector.
+                    lastResultOrNil := eachClass asTestCase rememberedOutcomeFor:mSelector.
                     (lastResultOrNil isNil or:[lastResultOrNil result ~~ TestResult statePass]) ifTrue:[
                         numTestsNotPassed := numTestsNotPassed + 1
                     ]    
@@ -1689,8 +1690,8 @@
     ^ categoryList
 
     "Created: / 05-02-2000 / 13:42:11 / cg"
-    "Modified: / 31-08-2011 / 16:26:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 08-09-2011 / 04:56:47 / cg"
+    "Modified: / 26-07-2016 / 23:31:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 makeDependent