--- a/DebugView.st	Wed Feb 05 17:26:21 2020 +0100
+++ b/DebugView.st	Wed Feb 05 17:29:49 2020 +0100
@@ -2223,11 +2223,9 @@
     |activeProcess|
 
     activeProcess := Processor activeProcess.
-
-    ^ [
-        activeProcess environmentAt:#isDebuggerProcess put:true.
-        aBlock value.
-    ] on:IsDebuggingQuery do:[:ex|
+    activeProcess environmentAt:#isDebuggerProcess put:true.
+
+    ^ aBlock on:IsDebuggingQuery do:[:ex|
         ex proceedWith:true.
     ] ensure:[
         activeProcess environmentAt:#isDebuggerProcess put:false.
@@ -2235,6 +2233,7 @@
 
     "Created: / 01-02-2018 / 10:05:06 / stefan"
     "Modified: / 01-02-2018 / 23:35:30 / stefan"
+    "Modified: / 05-02-2020 / 16:57:30 / Stefan Vogel"
 ! !
 
 !DebugView class methodsFor:'private'!