--- a/VDBInstructionPresenter.st	Tue Jun 01 10:51:50 2021 +0100
+++ b/VDBInstructionPresenter.st	Tue Jun 01 10:55:41 2021 +0100
@@ -107,6 +107,23 @@
 
 !VDBInstructionPresenter methodsFor:'protocol-accessing'!
 
+icon
+    | breakpoints |
+
+    breakpoints := instruction breakpoints.
+    breakpoints notEmpty ifTrue: [  
+        (breakpoints anySatisfy: [:bkpt | bkpt enabled ]) ifTrue: [ 
+            ^ VDBIconLibrary brkp_obj
+        ] ifFalse: [ 
+            ^ VDBIconLibrary brkpd_obj
+        ].
+    ].
+    ^ nil
+
+    "Created: / 28-05-2021 / 21:46:00 / Jan Vrany <jan.vrany@labware.com>"
+    "Modified: / 01-06-2021 / 10:51:58 / Jan Vrany <jan.vrany@labware.com>"
+!
+
 label
     ^String streamContents:[ :s |
         (parent notNil and:[ parent askFor: #isInstructionsAndSourcePresenter ]) ifTrue:[