diff --git a/ChangeLog.txt b/ChangeLog.txt
index 4eba4d21e0..cb9fe76cbb 100644
--- a/ChangeLog.txt
+++ b/ChangeLog.txt
@@ -10,6 +10,13 @@
      * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
  */
 
+2015-02-10 13:03 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
+  * contrib/xhb/xhberr.prg
+  * contrib/xhb/xhb.hbx
+    - removed __BreakBlock() function. The Harbour core implementation
+      of __BreakBlock() function fully replaces it and is more efficient
+      because it does not create new codeblock on each call.
+
 2015-02-09 09:23 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
   * include/hbexpra.c
     * allow to use __BreakBlock() function as static initializer
diff --git a/contrib/xhb/xhb.hbx b/contrib/xhb/xhb.hbx
index d8ea408d26..3f57690aec 100644
--- a/contrib/xhb/xhb.hbx
+++ b/contrib/xhb/xhb.hbx
@@ -478,7 +478,6 @@ DYNAMIC _Character
 DYNAMIC _Hash
 DYNAMIC _Numeric
 DYNAMIC __ActiveStructure
-DYNAMIC __BreakBlock
 DYNAMIC __CStr_CopyTo
 DYNAMIC __ErrorBlock
 DYNAMIC __init_LONGLONGs
diff --git a/contrib/xhb/xhberr.prg b/contrib/xhb/xhberr.prg
index eba6dd7699..15859fe787 100644
--- a/contrib/xhb/xhberr.prg
+++ b/contrib/xhb/xhberr.prg
@@ -1,7 +1,7 @@
 /*
  * Harbour Project source code:
  * xHarbour default error handler and error functions:
- *    xhb_ErrorSys(), __BreakBlock(), __ErrorBlock(),
+ *    xhb_ErrorSys(), __ErrorBlock(),
  *    __MinimalErrorHandler(), xhb_ErrorNew()
  *
  * Copyright 2010 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
@@ -646,10 +646,6 @@ STATIC FUNCTION Arguments( oErr )
 
    RETURN cArguments
 
-FUNCTION __BreakBlock()
-
-   RETURN {| e | Break( e ) }
-
 FUNCTION __ErrorBlock()
 
    RETURN {| e | __MinimalErrorHandler( e ) }