diff --git a/harbour/source/debug/dbgtwin.prg b/harbour/source/debug/dbgtwin.prg
index 90107e284a..0ab15c9e7c 100644
--- a/harbour/source/debug/dbgtwin.prg
+++ b/harbour/source/debug/dbgtwin.prg
@@ -72,6 +72,8 @@ ENDCLASS
 
 METHOD New( nTop, nLeft, nBottom, nRight, cCaption, cColor ) CLASS TDbWindow
 
+   DEFAULT cColor TO __DbgColors()[ 1 ]
+
    ::nTop     := nTop
    ::nLeft    := nLeft
    ::nBottom  := nBottom
@@ -185,7 +187,7 @@ METHOD ShowModal() CLASS TDbWindow
               lExit := .t.
 
          case nKey == K_LBUTTONDOWN
-              if MRow() == ::nTop .and. MCol() == ::nLeft + 3
+              if MRow() == ::nTop .and. MCol() == ::nLeft + 2
                  lExit = .t.
               endif
       endcase