diff --git a/src/Spec2-Code-Morphic/SpMorphicCodeAdapter.class.st b/src/Spec2-Code-Morphic/SpMorphicCodeAdapter.class.st
index 93a1467e..0bcadd5b 100644
--- a/src/Spec2-Code-Morphic/SpMorphicCodeAdapter.class.st
+++ b/src/Spec2-Code-Morphic/SpMorphicCodeAdapter.class.st
@@ -13,6 +13,14 @@ SpMorphicCodeAdapter >> addExtraActionsTo: group [
 	group add: self presenter rootCommandsGroup beRoot
 ]
 
+{ #category : 'initialization' }
+SpMorphicCodeAdapter >> addKeyBindingsTo: aWidget [
+
+	super addKeyBindingsTo: aWidget.
+	self presenter isOverrideContextMenu 
+		ifFalse: [ self addKeyBindingsFromGroup: self presenter rootCommandsGroup ]
+]
+
 { #category : 'widget API' }
 SpMorphicCodeAdapter >> behavior [