--- a/MessageTracer.st	Mon Sep 12 12:11:14 2011 +0200
+++ b/MessageTracer.st	Fri Sep 16 12:06:18 2011 +0200
@@ -274,8 +274,8 @@
     TraceSenderBlock2 := [:con | MessageTracer printEntrySender:con on:(Smalltalk at:#Transcript) ].
     TraceFullBlock    := [:con | MessageTracer traceEntryFull:con on:(Smalltalk at:#Stderr)       ].
     TraceFullBlock2   := [:con | MessageTracer traceEntryFull:con on:(Smalltalk at:#Transcript)   ].
-    LeaveBreakBlock  := [:con :retVal | ].
-    LeaveTraceBlock  := [:con :retVal | ].
+    LeaveBreakBlock  := [:con :retVal | retVal ].
+    LeaveTraceBlock  := [:con :retVal | retVal ].
 
     ObjectMemory addDependent:self.
 
@@ -284,7 +284,7 @@
      MessageTracer initialize
     "
 
-    "Modified: / 30.7.1998 / 20:41:29 / cg"
+    "Modified: / 15-09-2011 / 19:02:13 / cg"
 !
 
 update:something with:parameter from:changedObject
@@ -3201,7 +3201,7 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.114 2011-07-01 11:05:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.115 2011-09-16 10:06:18 cg Exp $'
 ! !
 
 MessageTracer initialize!