--- a/MessageTracer.st	Thu Apr 25 19:05:13 1996 +0200
+++ b/MessageTracer.st	Thu Apr 25 19:12:40 1996 +0200
@@ -42,85 +42,88 @@
 
     tracing execution of a block:
 
-	MessageTracer trace:[ ... ]
+        MessageTracer trace:[ ... ]
 
-	MessageTracer traceFull:[ ... ]
+        MessageTracer traceFull:[ ... ]
 
-	(for system developper only:)
+        (for system developper only:)
 
-	MessageTracer debugTrace:[ ... ]
+        MessageTracer debugTrace:[ ... ]
 
 
     trapping sends to a specific object:
 
-	MessageTracer trap:anObject selector:aSelector
-	...
-	MessageTracer untrap:anObject selector:aSelector
-	or:
-	MessageTracer untrap:anObject
+        MessageTracer trap:anObject selector:aSelector
+        ...
+        MessageTracer untrap:anObject selector:aSelector
+        or:
+        MessageTracer untrap:anObject
 
 
 
     trapping some messages sent to a specific object:
 
-	MessageTracer trap:anObject selectors:aCollectionOfSelectors
-	...
-	MessageTracer untrap:anObject
+        MessageTracer trap:anObject selectors:aCollectionOfSelectors
+        ...
+        MessageTracer untrap:anObject
 
 
 
     trapping any message sent to a specific object:
 
-	MessageTracer trapAll:anObject
-	...
-	MessageTracer untrap:anObject
+        MessageTracer trapAll:anObject
+        ...
+        MessageTracer untrap:anObject
 
 
 
     trapping evaluation of a specific method:
 
-	MessageTracer trapMethod:aMethod
-	...
-	MessageTracer unwrapMethod:aMethod
+        MessageTracer trapMethod:aMethod
+        ...
+        MessageTracer unwrapMethod:aMethod
 
 
 
     trapping evaluation of a specific method with
     receiver being an instance of some class:
 
-	MessageTracer trapMethod:aMethod forInstancesOf:aClass
-	...
-	MessageTracer unwrapMethod:aMethod
+        MessageTracer trapMethod:aMethod forInstancesOf:aClass
+        ...
+        MessageTracer unwrapMethod:aMethod
 
 
 
     tracing sends to a specific object:
 
-	MessageTracer trace:anObject selector:aSelector
-	...
-	MessageTracer untrace:anObject selector:aSelector
-	or:
-	MessageTracer untrace:anObject
+        MessageTracer trace:anObject selector:aSelector
+        ...
+        MessageTracer untrace:anObject selector:aSelector
+        or:
+        MessageTracer untrace:anObject
 
 
 
     tracing sender only:
 
-	MessageTracer traceSender:anObject selector:aSelector
-	...
-	MessageTracer untrace:anObject selector:aSelector
-	or:
-	MessageTracer untrace:anObject
+        MessageTracer traceSender:anObject selector:aSelector
+        ...
+        MessageTracer untrace:anObject selector:aSelector
+        or:
+        MessageTracer untrace:anObject
 
 
 
     tracing evaluation of a specific method:
 
-	MessageTracer traceMethod:aMethod
-	...
-	MessageTracer unwrapmethod:aMethod
+        MessageTracer traceMethod:aMethod
+        ...
+        MessageTracer unwrapmethod:aMethod
 
   see more in examples and in method comments.
+
+    [author:]
+        Claus Gittinger
 "
 !
 
@@ -1683,6 +1686,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.33 1996-03-18 18:50:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.34 1996-04-25 17:11:08 cg Exp $'
 ! !
 MessageTracer initialize!