diff --git a/src/Spec2-Adapters-Morphic/SpMorphicMenuBarAdapter.class.st b/src/Spec2-Adapters-Morphic/SpMorphicMenuBarAdapter.class.st
index 5edce6cb..8abb917b 100644
--- a/src/Spec2-Adapters-Morphic/SpMorphicMenuBarAdapter.class.st
+++ b/src/Spec2-Adapters-Morphic/SpMorphicMenuBarAdapter.class.st
@@ -65,6 +65,7 @@ SpMorphicMenuBarAdapter >> buildWidget [
 	widget := ToolDockingBarMorph new
 		          hResizing: #spaceFill;
 		          vResizing: #spaceFill;
+		          height: 24 * self currentWorld displayScaleFactor;
 		          yourself.
 
 	self menuGroups doWithIndex: [ :aGroup :index |