diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index c85e361c93..c62ca7ce55 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,12 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-01-26 18:29 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+  * utils/hbmk2/hbmk2.prg
+    ! Fixed -xhp option which didn't save the result due to
+      copy/paste typo.
+      [TOMERGE 2.0]
+
 2010-01-26 17:26 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbwin/Makefile
   * contrib/hbwin/hbwin.h
diff --git a/harbour/utils/hbmk2/hbmk2.prg b/harbour/utils/hbmk2/hbmk2.prg
index 3e2c7e58a3..f621ac58e1 100644
--- a/harbour/utils/hbmk2/hbmk2.prg
+++ b/harbour/utils/hbmk2/hbmk2.prg
@@ -7979,6 +7979,10 @@ STATIC PROCEDURE convert_xhp_to_hbp( cSrcName, cDstName )
 
    hbmk_OutStd( hb_StrFormat( I_( "Loading xhp (xMate) project file: %1$s" ), cSrcName ) )
 
+   IF Empty( cDstName )
+      cDstName := FN_ExtSet( cSrcName, ".hbp" )
+   ENDIF
+
    cSrc := StrTran( cSrc, Chr( 13 ) + Chr( 10 ), Chr( 10 ) )
    cSrc := StrTran( cSrc, Chr( 9 ), Chr( 32 ) )