diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 337e5686f6..43b81684d6 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-01-31 14:13 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+   * contrib/hbbtree/hb_btree.c
+     ! Removed HB_ERR_SS_TOOLS reference.
+
 2008-01-31 13:00 UTC+0100 Ryszard Glab <harbour//rglab.pl>
    * source/rdd/Makefile
    * config/global.cf
diff --git a/harbour/contrib/hbbtree/hb_btree.c b/harbour/contrib/hbbtree/hb_btree.c
index 4e625fd891..427e0fbcc4 100644
--- a/harbour/contrib/hbbtree/hb_btree.c
+++ b/harbour/contrib/hbbtree/hb_btree.c
@@ -355,7 +355,7 @@ static void hb_RaiseError( enum hb_BTree_Error_Codes ulSubCode, const char * szD
 {
     PHB_ITEM pErr = hb_errRT_New(
     ES_ERROR        /* USHORT uiSeverity */,
-    HB_ERR_SS_TOOLS /* char * szSubSystem */,
+    "HBBTREE"       /* char * szSubSystem */,
     EG_ARG          /* ULONG  ulGenCode */,
     ulSubCode       /* ULONG  ulSubCode */,
     ( char * )szDescription   /* char * szDescription */,