diff --git a/src/Debugger-Model/DebugSession.class.st b/src/Debugger-Model/DebugSession.class.st
index 4e22c12b63c..e16656734a0 100644
--- a/src/Debugger-Model/DebugSession.class.st
+++ b/src/Debugger-Model/DebugSession.class.st
@@ -80,7 +80,9 @@ DebugSession >> clear [
 	the same process, it should call this method."
 	exception := nil.
 	interruptedProcess := nil.
-	self updateContextTo: nil
+	self updateContextTo: nil.
+	
+	self triggerEvent: #clear
 ]
 
 { #category : #accessing }