diff --git a/harbour/source/debug/dbgmenu.prg b/harbour/source/debug/dbgmenu.prg
index a43b284a3a..383bbf50e9 100644
--- a/harbour/source/debug/dbgmenu.prg
+++ b/harbour/source/debug/dbgmenu.prg
@@ -54,9 +54,9 @@ function __dbgBuildMenu( oDebugger )  // Builds the debugger pulldown menu
       MENU
          MENUITEM " ~Open..."         ACTION oDebugger:Open()
          MENUITEM " ~Resume"          ACTION Alert( "Not implemented yet!" )
-         MENUITEM " ~OS Shell"        ACTION Alert( "Not implemented yet!" )
+         MENUITEM " O~S Shell"        ACTION oDebugger:OSShell()
          SEPARATOR
-         MENUITEM " e~Xit    Alt-X "  ACTION oDebugger:Exit(), oDebugger:Hide()
+         MENUITEM " e~Xit    Alt-X "  ACTION oDebugger:Exit(), oDebugger:Hide(), __Quit()
       ENDMENU
 
       MENUITEM " ~Locate "