diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 9d509766e4..34a3c1357b 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to these authors: Viktor Szakats.
 */
 
+2009-05-28 19:06 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+  * utils/hbmk2/hbmk2.prg
+    + .hbm embedding is now allowed 10 level deep (was 3).
+
 2009-05-28 17:30 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
   + contrib/examples/hbsuper
   + contrib/examples/hbsuper/hbsuper.hbm
diff --git a/harbour/utils/hbmk2/hbmk2.prg b/harbour/utils/hbmk2/hbmk2.prg
index 62bb794df3..3bd138a3a1 100644
--- a/harbour/utils/hbmk2/hbmk2.prg
+++ b/harbour/utils/hbmk2/hbmk2.prg
@@ -4796,7 +4796,7 @@ STATIC PROCEDURE HBM_Load( hbmk, aParams, cFileName, /* @ */ nEmbedLevel )
                IF ! Empty( cParam )
                   DO CASE
                   CASE ( Len( cParam ) >= 1 .AND. Left( cParam, 1 ) == "@" )
-                     IF nEmbedLevel < 3
+                     IF nEmbedLevel < 10
                         cParam := SubStr( cParam, 2 )
                         IF Empty( FN_ExtGet( cParam ) )
                            cParam := FN_ExtSet( cParam, ".hbm" )
@@ -4805,7 +4805,7 @@ STATIC PROCEDURE HBM_Load( hbmk, aParams, cFileName, /* @ */ nEmbedLevel )
                         HBM_Load( hbmk, aParams, PathProc( cParam, cFileName ), @nEmbedLevel ) /* Load parameters from script file */
                      ENDIF
                   CASE Lower( FN_ExtGet( cParam ) ) == ".hbm"
-                     IF nEmbedLevel < 3
+                     IF nEmbedLevel < 10
                         nEmbedLevel++
                         HBM_Load( hbmk, aParams, PathProc( cParam, cFileName ), @nEmbedLevel ) /* Load parameters from script file */
                      ENDIF