--- a/MessageTracer.st	Thu Sep 25 23:17:13 2014 +0200
+++ b/MessageTracer.st	Fri Oct 03 16:01:50 2014 +0200
@@ -1785,34 +1785,34 @@
     |lvl inside|
 
     ^ self wrapMethod:aMethod
-	 onEntry:[:con |
-			| msg |
-			inside isNil ifTrue:[
-			    inside := true.
-			    CallingLevel isNil ifTrue:[
-				CallingLevel := 0.
-			    ].
-			    lvl notNil ifTrue:[
-				lvl := lvl + 1
-			    ] ifFalse:[
-				CallingLevel := lvl := CallingLevel + 1.
-			    ].
-			    msg := String streamContents:[:s|MessageTracer printEntryFull:con level:lvl on:s].
-			    Logger log: msg severity: #trace attachment: con args.
-			    inside := nil
-			]
-		 ]
-	 onExit:[:con :retVal |
-			| msg |
-			inside isNil ifTrue:[
-			    inside := true.
-			    msg := String streamContents:[:s|MessageTracer printExit:con with:retVal level:lvl on:s].
-			    Logger log: msg severity: #trace attachment: retVal.
-			    CallingLevel := lvl := lvl - 1.
-			    inside := nil
-			].
-			retVal
-		]
+         onEntry:[:con |
+                        | msg |
+                        inside isNil ifTrue:[
+                            inside := true.
+                            CallingLevel isNil ifTrue:[
+                                CallingLevel := 0.
+                            ].
+                            lvl notNil ifTrue:[
+                                lvl := lvl + 1
+                            ] ifFalse:[
+                                CallingLevel := lvl := CallingLevel + 1.
+                            ].
+                            msg := String streamContents:[:s|MessageTracer printEntryFull:con level:lvl on:s].
+                            Logger log: msg severity: Logger severityENTER attachment: con args.
+                            inside := nil
+                        ]
+                 ]
+         onExit:[:con :retVal |
+                        | msg |
+                        inside isNil ifTrue:[
+                            inside := true.
+                            msg := String streamContents:[:s|MessageTracer printExit:con with:retVal level:lvl on:s].
+                            Logger log: msg severity: Logger severityLEAVE attachment: retVal.
+                            CallingLevel := lvl := lvl - 1.
+                            inside := nil
+                        ].
+                        retVal
+                ]
 
     "
      MessageTracer traceMethod:(Integer compiledMethodAt:#factorial) on:Transcript.
@@ -1831,6 +1831,7 @@
     "
 
     "Created: / 15-03-2013 / 11:04:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-10-2014 / 15:00:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 untraceMethod:aMethod
@@ -3681,7 +3682,7 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.133 2014-07-29 11:33:07 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.134 2014-10-03 14:01:50 vrany Exp $'
 ! !