diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index ea5da977e5..ac2c82cec4 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -2,6 +2,7 @@
   * source/debug/debugger.prg
     * ::Activate - fix for trashed screens
       Escape key will now exit the debugger, but the app will continue to run
+      Altd() will reactivate the debugger (maybe not imediately)
 
 19990823-01:11 GMT+1 Victor Szel <info@szelvesz.hu>
   * source/rtl/alert.prg
diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg
index e3873e1860..5fd2215304 100644
--- a/harbour/source/debug/debugger.prg
+++ b/harbour/source/debug/debugger.prg
@@ -863,4 +863,5 @@ function BuildMenu( oDebugger )  // Builds the debugger pulldown menu
 
 return oMenu
 
-
+Function AltD()
+lExit := .F.