--- a/MessageTracer.st	Sat Jun 14 11:30:40 2014 +0200
+++ b/MessageTracer.st	Mon Jun 23 10:56:14 2014 +0200
@@ -2898,14 +2898,16 @@
 !MessageTracer class methodsFor:'queries'!
 
 allWrappedMethods
-    ^ Smalltalk allMethodsForWhich:[:mthd | mthd isWrapped]
+    ^ WrappedMethod allWrappedMethods. 
+    "/ ^ Smalltalk allMethodsForWhich:[:mthd | mthd isWrapped]
 !
 
 areAnyMethodsWrapped
-    Smalltalk allMethodsDo:[:mthd |
-	mthd isWrapped ifTrue:[ ^ true ]
-    ].
-    ^ false
+    ^ WrappedMethod allWrappedMethods notEmpty.
+"/    Smalltalk allMethodsDo:[:mthd |
+"/        mthd isWrapped ifTrue:[ ^ true ]
+"/    ].
+"/    ^ false
 !
 
 isCounting:aMethod
@@ -3451,7 +3453,7 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.130 2014-06-10 10:21:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.131 2014-06-23 08:56:14 cg Exp $'
 ! !