--- a/VDBSourceApplication.st	Wed Mar 14 10:22:11 2018 +0000
+++ b/VDBSourceApplication.st	Wed Mar 21 23:06:02 2018 +0000
@@ -184,12 +184,14 @@
 sourceView
     sourceView isNil ifTrue:[ 
         sourceView := Tools::CodeView2 new.
+        sourceView compilerClass: (VDBEvaluator new setDebugger: debugger).    
         sourceView readOnly: true.
         sourceView services: #()        
     ].
     ^ sourceView
 
     "Created: / 21-09-2014 / 01:42:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-03-2018 / 22:16:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !VDBSourceApplication methodsFor:'change & update'!
@@ -261,9 +263,14 @@
     "Register for debugger events. To be overrided by subclasses"
 
     debugger announcer
-        when: GDBStoppedEvent               send: #onStoppedEvent: to: self
+        when: GDBStoppedEvent               send: #onStoppedEvent: to: self.
+
+    sourceView notNil ifTrue:[ 
+        sourceView compilerClass setDebugger: debugger.
+    ].
 
     "Created: / 01-02-2018 / 15:18:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-03-2018 / 22:18:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !VDBSourceApplication class methodsFor:'documentation'!