--- a/Tools__MethodCategoryList.st	Thu Apr 17 00:10:44 2014 +0200
+++ b/Tools__MethodCategoryList.st	Thu Apr 17 00:11:08 2014 +0200
@@ -1330,7 +1330,7 @@
                                                 info isSubclassResponsibility ifTrue:[ numSubclassResponsibility := numSubclassResponsibility + 1].
                                                 info isAnnotated ifTrue:[ numAnnotated := numAnnotated + 1].
                                             ].
-                                            (Timestamp now deltaFrom:startTime) > 5 seconds ifTrue:[
+                                            (Timestamp now secondDeltaFrom:startTime) > 5 ifTrue:[
                                                 suppressPseudoProtocolsNow := true.
                                                 "/ because we already computed for 5 seconds, more and more will be found in
                                                 "/ the cache, and eventually, pseudo protocols will be shown anyway
@@ -2123,11 +2123,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.101 2014-04-08 15:08:25 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.102 2014-04-16 22:11:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.101 2014-04-08 15:08:25 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.102 2014-04-16 22:11:08 cg Exp $'
 ! !