diff --git a/harbour/source/debug/dbgmenu.prg b/harbour/source/debug/dbgmenu.prg
index 0554917087..e6f68a2b83 100644
--- a/harbour/source/debug/dbgmenu.prg
+++ b/harbour/source/debug/dbgmenu.prg
@@ -119,7 +119,7 @@ function __dbgBuildMenu( oDebugger )  // Builds the debugger pulldown menu
          MENUITEM " code~Block Trace"       ACTION Alert( "Not implemented yet!" )
          MENUITEM " ~Menu Bar"              ACTION Alert( "Not implemented yet!" )
          MENUITEM " mono ~Display"          ACTION Alert( "Not implemented yet!" )
-         MENUITEM " ~Colors..."             ACTION Alert( "Not implemented yet!" )
+         MENUITEM " ~Colors..."             ACTION oDebugger:SelColors()
          MENUITEM " ~Tab Width..."          ACTION Alert( "Not implemented yet!" )
          MENUITEM " path for ~Files..."     ACTION Alert( "Not implemented yet!" )
          SEPARATOR
diff --git a/harbour/source/debug/dbgtmenu.prg b/harbour/source/debug/dbgtmenu.prg
index c992a027bf..5dd1df66c6 100644
--- a/harbour/source/debug/dbgtmenu.prg
+++ b/harbour/source/debug/dbgtmenu.prg
@@ -93,10 +93,10 @@ METHOD New() CLASS TDbMenu
    ::nBottom      := 0
    ::nRight       := 0
    ::aItems       := {}
-   ::cClrHilite   := "W+/N"
-   ::cClrHotFocus := "GR+/N"
-   ::cClrHotKey   := "GR+/BG"
-   ::cClrPopup    := "N/BG"
+   ::cClrPopup    := __DbgColors()[  8 ]
+   ::cClrHotKey   := __DbgColors()[ 10 ]
+   ::cClrHilite   := __DbgColors()[ 11 ]
+   ::cClrHotFocus := __DbgColors()[ 11 ]
    ::nOpenPopup   := 0
 
    AAdd( ::aMenus, Self )