--- a/MessageTracer.st	Mon May 06 08:00:53 2002 +0200
+++ b/MessageTracer.st	Thu May 16 19:56:50 2002 +0200
@@ -1450,8 +1450,12 @@
      on them; this removes them all"
 
     WrappedMethod allInstancesDo:[:aMethod |
-	self unwrapMethod:aMethod
+        self unwrapMethod:aMethod
     ]
+
+    "
+     MessageTracer unwrapAllMethods
+    "
 !
 
 unwrapMethod:aMethod 
@@ -3129,6 +3133,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.98 2002-05-06 06:00:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.99 2002-05-16 17:56:50 cg Exp $'
 ! !
 MessageTracer initialize!