diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 63e92f2085..b74f7e2cb9 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,13 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-06-20 15:17 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
+  * harbour/include/hbclass.ch
+    + added support for
+         DESTRUCTOR FUNCTION <FuncName>[()]
+      in class declaration. It allows to define as object
+      destructors external functions, i.e. defined in C
+
 2012-06-20 13:02 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
   * harbour/src/rtl/valtype.c
   * harbour/include/harbour.hbx
diff --git a/harbour/include/hbclass.ch b/harbour/include/hbclass.ch
index 0cb04b6163..0104524464 100644
--- a/harbour/include/hbclass.ch
+++ b/harbour/include/hbclass.ch
@@ -331,6 +331,8 @@ DECLARE HBClass ;
    _HB_MEMBER __HB_CLS_ASFUNC(<MethodName>);;
    __HB_CLS_DECLARE_METHOD __HB_CLS_PARAMS(<MethodName>) _CLASS_NAME_ ;;
    oClass:SetDestructor( @__HB_CLS_ASID( __HB_CLS_MTHNAME _CLASS_NAME_ <MethodName> )() )
+#xcommand DESTRUCTOR FUNCTION <FuncName> => ;
+   oClass:SetDestructor( @__HB_CLS_ASID( <FuncName> )() )
 
 #xcommand ON ERROR <MethodName>     => ERROR HANDLER <MethodName>
 #xcommand ERROR HANDLER <MethodName> => ;