--- a/MiniDebugger.st	Mon Aug 26 11:43:02 2013 +0200
+++ b/MiniDebugger.st	Mon Aug 26 11:45:54 2013 +0200
@@ -295,6 +295,7 @@
         ].
         (leaveCmd == $a) ifTrue: [
             "abort"
+            traceBlock := nil.
             ObjectMemory flushInlineCaches.
             ObjectMemory stepInterruptHandler:nil.
             stepping := false.
@@ -1020,10 +1021,10 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.87 2013-08-26 09:43:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.88 2013-08-26 09:45:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.87 2013-08-26 09:43:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.88 2013-08-26 09:45:54 cg Exp $'
 ! !