--- a/MiniDebugger.st	Tue Jun 27 04:15:21 1995 +0200
+++ b/MiniDebugger.st	Sun Jul 02 03:08:30 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.12 1995-03-18 05:05:05 claus Exp $
+$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.13 1995-07-02 01:07:16 claus Exp $
 '!
 
 !MiniDebugger class methodsFor: 'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.12 1995-03-18 05:05:05 claus Exp $
+$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.13 1995-07-02 01:07:16 claus Exp $
 "
 !
 
@@ -370,6 +370,7 @@
 	(cmd == $a) ifTrue:[valid := true. done := true].
 	(cmd == $T) ifTrue:[valid := true. Processor terminateActive].
 	(cmd == $Q) ifTrue:[valid := true. Processor terminateActiveNoSignal].
+	(cmd == $U) ifTrue:[MessageTracer unwrapAllMethods].
 	(cmd == $X) ifTrue:[Smalltalk fatalAbort].
 	(cmd == $x) ifTrue:[Smalltalk exit].
 	valid ifFalse: [
@@ -386,6 +387,7 @@
    (P)rocess list
    (T)terminate current process
    (Q)uick terminate current process (no unwinds)
+   (U)nwrap all traced/breakpointed methods
    (X)exit (+core)
    (x)exit Smalltalk'  errorPrintNewline
 	]