diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 1a44f21121..41233ee59b 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-02-14 23:30 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
+  * harbour/src/vm/classes.c
+    ! fixed typo
+
 2011-02-14 19:48 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/include/hbclass.ch
     + added some class(y) compatible commands for delegated messages
diff --git a/harbour/src/vm/classes.c b/harbour/src/vm/classes.c
index 305be15c93..7b5090e953 100644
--- a/harbour/src/vm/classes.c
+++ b/harbour/src/vm/classes.c
@@ -2791,7 +2791,7 @@ static HB_BOOL hb_clsAddMsg( HB_USHORT uiClass, const char * szMessage,
                if( pNewMeth )
                   uiIndex = ( HB_USHORT ) ( pNewMeth - pClass->pMethods );
             }
-            fOK = pFunction == NIL || HB_IS_NIL( pFunction ) || uiIndex != 0;
+            fOK = pFunction == NULL || HB_IS_NIL( pFunction ) || uiIndex != 0;
             if( fOK )
             {
                pDelegMsg = hb_objGetMsgSym( pInit );
@@ -2801,7 +2801,7 @@ static HB_BOOL hb_clsAddMsg( HB_USHORT uiClass, const char * szMessage,
                   if( pNewMeth )
                      uiSprClass = ( HB_USHORT ) ( pNewMeth - pClass->pMethods );
                }
-               fOK = ( pInit == NIL || HB_IS_NIL( pInit ) || uiSprClass != 0 ) &&
+               fOK = ( pInit == NULL || HB_IS_NIL( pInit ) || uiSprClass != 0 ) &&
                      ( uiIndex != 0 || uiSprClass != 0 );
             }
             break;