diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index c124dfb3d1..808aeb29dc 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,14 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2007-04-13 19:05 UTC+0200 Lorenzo Fiorini (lorenzo.fiorini/at/gmail.com)
+  * harbour/include/Makefile
+    ! added install of hbcompat.ch
+  * harbour/source/debug/dbgtarr.prg
+  * harbour/source/debug/dbgtobj.prg  
+  * harbour/source/debug/dbgthsh.prg     
+    * added missed #ifndef HB_NO_READDBG
+
 2007-04-13 18:43 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/common.mak
   * harbour/source/rtl/Makefile
diff --git a/harbour/include/Makefile b/harbour/include/Makefile
index f2935236bc..7ad0feed88 100644
--- a/harbour/include/Makefile
+++ b/harbour/include/Makefile
@@ -100,6 +100,7 @@ PRG_HEADERS=\
 	std.ch       \
 	tbrowse.ch   \
 	usrrdd.ch    \
+	hbcompat.ch
 
 API_HEADERS=\
 	error.api    \
diff --git a/harbour/source/debug/dbgtarr.prg b/harbour/source/debug/dbgtarr.prg
index aaced92296..9a27f061d0 100644
--- a/harbour/source/debug/dbgtarr.prg
+++ b/harbour/source/debug/dbgtarr.prg
@@ -264,6 +264,8 @@ return cResult
 
 METHOD doGet( oBro, pItem, nSet ) Class TDBGArray
 
+#ifndef HB_NO_READDBG
+
     LOCAL nKey
     local getlist := {}
     // save state
@@ -305,6 +307,12 @@ METHOD doGet( oBro, pItem, nSet ) Class TDBGArray
         KEYBOARD CHR( nKey )
     END
 
+#else
+
+    HB_SYMBOL_UNUSED( oBro )
+    HB_SYMBOL_UNUSED( pItem )
+    HB_SYMBOL_UNUSED( nSet )
+
 RETURN  nil
 
 function __DbgArrays( aArray, cArrayName, lEditable )
diff --git a/harbour/source/debug/dbgthsh.prg b/harbour/source/debug/dbgthsh.prg
index 8be90edc0e..5aef738adb 100644
--- a/harbour/source/debug/dbgthsh.prg
+++ b/harbour/source/debug/dbgthsh.prg
@@ -283,6 +283,8 @@ return cResult
 
 METHOD doGet( oBro, pItem, nSet ) Class TDBGHash
 
+#ifndef HB_NO_READDBG
+
     LOCAL nKey
     local getlist := {}
     // save state
@@ -324,6 +326,14 @@ METHOD doGet( oBro, pItem, nSet ) Class TDBGHash
         KEYBOARD CHR( nKey )
     END
 
+#else
+
+    HB_SYMBOL_UNUSED( oBro )
+    HB_SYMBOL_UNUSED( pItem )
+    HB_SYMBOL_UNUSED( nSet )
+
+#endif
+
 RETURN  nil
 
 function __DbgHashes( hHash, chashName, lEditable )
diff --git a/harbour/source/debug/dbgtobj.prg b/harbour/source/debug/dbgtobj.prg
index 43fb8d0dd7..f0e9bdbc29 100644
--- a/harbour/source/debug/dbgtobj.prg
+++ b/harbour/source/debug/dbgtobj.prg
@@ -313,6 +313,9 @@ static function ValToStr( uVal )
 return cResult
 
 METHOD doGet(oBro,pItem,nSet) class tdbgObject
+
+#ifndef HB_NO_READDBG
+
     LOCAL column,  nKey
     local getlist:={}
     // save state
@@ -325,6 +328,8 @@ METHOD doGet(oBro,pItem,nSet) class tdbgObject
     obro:forcestable()
     // if confirming new record, append blank
 
+
+
     // set insert key to toggle insert mode and cursor
     SetKey( K_INS, ;
         { || SetCursor( if(ReadInsert(!ReadInsert()), SC_NORMAL, SC_INSERT)) };
@@ -360,6 +365,15 @@ METHOD doGet(oBro,pItem,nSet) class tdbgObject
     IF nKey == K_UP .OR. nKey == K_DOWN .OR. nKey == K_PGUP .OR. nKey == K_PGDN
         KEYBOARD CHR( nKey )
     END
+
+#else
+
+    HB_SYMBOL_UNUSED( oBro )
+    HB_SYMBOL_UNUSED( pItem )
+    HB_SYMBOL_UNUSED( nSet )
+
+#endif
+
 RETURN nil
 
 static FUNC maxelem( a )