--- a/DebugView.st	Wed Sep 26 14:58:16 2012 +0200
+++ b/DebugView.st	Wed Sep 26 15:09:27 2012 +0200
@@ -1869,7 +1869,9 @@
 exit_restart
     |con|
 
+Transcript showCR:'ex1'.
     selectedContext notNil ifTrue:[
+Transcript showCR:'ex2'.
         con := selectedContext.
         self cacheMyself.
         "
@@ -1885,8 +1887,8 @@
         'DebugView [warning]: cannot restart selected context' errorPrintCR
     ]
 
-    "Created: / 16.11.2001 / 17:23:17 / cg"
-    "Modified: / 17.11.2001 / 23:37:09 / cg"
+    "Created: / 16-11-2001 / 17:23:17 / cg"
+    "Modified: / 26-09-2012 / 15:00:35 / cg"
 !
 
 exit_return
@@ -3026,6 +3028,34 @@
 
 !
 
+releaseDebuggee
+    "We have to be careful to release all refs to the debuggee,
+     because we may be in the cache.
+     Otherwise, the GC will not be able to release it"
+
+    busy := false.
+
+    codeView acceptAction:nil.
+    codeView doItAction:nil.
+    codeView contents:nil.
+
+    receiverInspector release.
+    contextInspector release.
+    inspectedProcess := nil.
+    contextArray := nil.
+    ((exitAction == #restart) or:[exitAction == #return]) ifFalse:[
+        selectedContext := nil.
+    ].
+    actualContext := firstContext := nil.
+    steppedContext := wrapperContext := nil.
+    catchBlock := nil.
+    grabber := nil.
+    self autoUpdateOff.
+
+    "Created: / 10-07-1997 / 14:57:51 / stefan"
+    "Modified: / 26-09-2012 / 15:08:21 / cg"
+!
+
 setLabelFor:aMessage in:aProcess
     |l lines processNameOrNil pidOrNil osPidString|
 
@@ -6076,32 +6106,6 @@
     "Created: 10.7.1997 / 15:22:43 / stefan"
 !
 
-releaseDebuggee
-    "We have to be careful to release all refs to the debuggee,
-     because we may be in the cache.
-     Otherwise, the GC will not be able to release it"
-
-    busy := false.
-
-    codeView acceptAction:nil.
-    codeView doItAction:nil.
-    codeView contents:nil.
-
-    receiverInspector release.
-    contextInspector release.
-    inspectedProcess := nil.
-    contextArray := nil.
-    selectedContext := actualContext := firstContext := nil.
-    steppedContext := wrapperContext := nil.
-    catchBlock := nil.
-    grabber := nil.
-    self autoUpdateOff.
-
-    "Created: / 10.7.1997 / 14:57:51 / stefan"
-    "Modified: / 10.7.1997 / 15:50:38 / stefan"
-    "Modified: / 17.11.2001 / 22:58:17 / cg"
-!
-
 uncacheMyself
     "do not remember myself any longer for next debug session"
 
@@ -6924,8 +6928,8 @@
     ].
     catchBlock := nil.
 
-    "Created: / 24.11.1995 / 20:33:45 / cg"
-    "Modified: / 18.11.2001 / 01:04:17 / cg"
+    "Created: / 24-11-1995 / 20:33:45 / cg"
+    "Modified: / 26-09-2012 / 15:03:39 / cg"
 ! !
 
 !DebugView methodsFor:'user interaction'!
@@ -7996,11 +8000,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.554 2012-07-27 21:49:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.555 2012-09-26 13:09:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.554 2012-07-27 21:49:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.555 2012-09-26 13:09:27 cg Exp $'
 !
 
 version_SVN