diff --git a/harbour/source/debug/dbgtobj.prg b/harbour/source/debug/dbgtobj.prg
index 5626f60c55..541b700fbc 100644
--- a/harbour/source/debug/dbgtobj.prg
+++ b/harbour/source/debug/dbgtobj.prg
@@ -109,7 +109,7 @@ Local owndsets
    oBrwSets:=TbrowseNew(owndsets:nTop+1, owndsets:nLeft+1, owndsets:nBottom-1, owndsets:nRight-1)
    ::ArrayReference:=aarray
 
-   oBrwSets:ColorSpec := "N/W, R/W, N/bg"
+   oBrwSets:ColorSpec := __Dbg():ClrModal()
    oBrwSets:GoTopBlock := { || ::Arrayindex := 1 }
    oBrwSets:GoBottomBlock := { || ::arrayindex := Len( ::ArrayReference) }
    oBrwSets:SkipBlock := { | nSkip, nPos | nPos := ::arrayindex,;
diff --git a/harbour/source/debug/dbgwa.prg b/harbour/source/debug/dbgwa.prg
index 7a09148a27..004079c6a0 100644
--- a/harbour/source/debug/dbgwa.prg
+++ b/harbour/source/debug/dbgwa.prg
@@ -45,7 +45,8 @@ function __dbgShowWorkAreas( oDebugger )
    n2      := 1
    n3      := 1
 
-   cColor := "N/W, N/BG, R/W, R/BG"
+   cColor := If( __Dbg():lMonoDisplay, "N/W, W/N, W+/W, W+/N",;
+                 "N/W, N/BG, R/W, R/BG" )
 
    do while !Empty( Alias( n1 ) )
       Aadd(aAlias, Alias( n1 ))
@@ -346,4 +347,4 @@ static function UpdateInfo( oDlg, cAlias )
 
    SELECT (cOldAlias)
 
-return nil
+return nil
\ No newline at end of file