--- a/MessageTracer.st	Fri Mar 22 10:49:52 2013 +0100
+++ b/MessageTracer.st	Fri Mar 22 12:46:13 2013 +0100
@@ -2725,16 +2725,7 @@
 !MessageTracer class methodsFor:'queries'!
 
 allWrappedMethods
-    |methods| 
-
-    methods := IdentitySet new.
-
-    Smalltalk allMethodsDo:[:mthd |
-        mthd isWrapped ifTrue:[
-            methods add:mthd.
-        ]
-    ].
-    ^ methods asOrderedCollection
+    ^ Smalltalk allMethodsForWhich:[:mthd | mthd isWrapped]
 !
 
 areAnyMethodsWrapped
@@ -3269,7 +3260,8 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.117 2012-11-05 23:09:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.118 2013-03-22 11:46:13 cg Exp $'
 ! !
 
+
 MessageTracer initialize!