Integrating Oups in Context

pharo-project · Aug 24, 2020 · a6dc513 · a6dc513
1 parent ee4edf0
commit a6dc513
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/Kernel/Context.class.st b/src/Kernel/Context.class.st
@@ -406,12 +406,12 @@ Context >> canHandleSignal: exception [
 
 { #category : #'private-exceptions' }
 Context >> cannotReturn: result [
+
 	closureOrNil ifNotNil: [ 
-		^BlockCannotReturn result: result from: self home].
-	Processor activeProcess 
-		debug: thisContext 
-		title: 'computation has been terminated'
-
+		^ BlockCannotReturn result: result from: self home ].
+	(OupsDebugRequest newForContext: thisContext)
+		label: 'computation has been terminated';
+		submit
 ]
 
 { #category : #private }