--- a/VDBInstructionPresenter.st	Mon Jul 30 17:26:19 2018 +0100
+++ b/VDBInstructionPresenter.st	Tue Aug 07 12:17:46 2018 +0100
@@ -71,10 +71,17 @@
 !VDBInstructionPresenter methodsFor:'protocol-accessing'!
 
 label
-    ^ (instruction address printStringRadix: 16 size: 16 fill: $0) , '  ', instruction assembly.
+    ^String streamContents:[ :s |
+        (parent notNil and:[ parent askFor: #isInstructionsAndSourcePresenter ]) ifTrue:[
+            s next: parent lineDigitsToDisplay put: Character space.   
+        ].
+        instruction address printOn: s base: 16 size: 16 fill: $0.
+        s space.
+        s nextPutAll: instruction assembly
+    ]
 
     "Created: / 22-06-2018 / 12:21:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 26-06-2018 / 11:29:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-08-2018 / 11:15:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !VDBInstructionPresenter methodsFor:'testing'!