diff --git a/Projects/Src/CompForm.pas b/Projects/Src/CompForm.pas
index 4c5dbaeac..2eed4ed9d 100644
--- a/Projects/Src/CompForm.pas
+++ b/Projects/Src/CompForm.pas
@@ -864,6 +864,8 @@ constructor TCompileForm.Create(AOwner: TComponent);
     don't conflict with the editor which also uses fake shortcuts for these }
   SetFakeShortCut(POutputListCopy, Ord('C'), [ssCtrl]);
   SetFakeShortCut(POutputListSelectAll, Ord('A'), [ssCtrl]);
+  { Set real shortcut on TOptions which can't be set at design time }
+  TOptions.ShortCut := ShortCut(VK_OEM_COMMA, [ssCtrl]);
 
   PopupMenu := TCompileFormPopupMenu.Create(Self, EMenu);
 
diff --git a/whatsnew.htm b/whatsnew.htm
index 6084c6d69..d1f241367 100644
--- a/whatsnew.htm
+++ b/whatsnew.htm
@@ -56,6 +56,7 @@
 <p>Other changes:</p>
 <ul>
   <li>Moved the list of recently opened files into a new <i>Open Recent</i> submenu of the <i>Files</i> menu.</li>
+  <li>Added shortcut to the <i>Options</i> menu item in the <i>Tools</i> menu (Ctrl+,).</li>
   <li>Minor tweaks and documentation improvements.</li>
 </ul>