diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index b8d0e659c0..1260e1631a 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-27 15:26 UTC+0200 Chen Kedem <niki@synel.co.il>
+   * source/rtl/objfunc.prg
+     ! Change hb_ISPOINTER() -> hb_ISSYMBOL()
+
 2008-01-27 12:46 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
    * source/rtl/objfunc.prg
      ! Fixed ISNUMBER() -> hb_ISPOINTER() for pointers.
diff --git a/harbour/source/rtl/objfunc.prg b/harbour/source/rtl/objfunc.prg
index 80d7a2a31b..e23ca20a0b 100644
--- a/harbour/source/rtl/objfunc.prg
+++ b/harbour/source/rtl/objfunc.prg
@@ -185,7 +185,7 @@ FUNCTION __ObjSetValueList( oObject, aData )
 
 FUNCTION __objAddMethod( oObject, cSymbol, nFuncPtr )
 
-   IF !ISOBJECT( oObject ) .OR. !ISCHARACTER( cSymbol ) .OR. !hb_ISPOINTER( nFuncPtr )
+   IF !ISOBJECT( oObject ) .OR. !ISCHARACTER( cSymbol ) .OR. !hb_ISSYMBOL( nFuncPtr )
       __errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
    ELSEIF !__objHasMsg( oObject, cSymbol )
       __clsAddMsg( oObject:ClassH, cSymbol, nFuncPtr, HB_OO_MSG_METHOD, NIL, 1 )
@@ -219,7 +219,7 @@ FUNCTION __objAddData( oObject, cSymbol )
 
 FUNCTION __objModMethod( oObject, cSymbol, nFuncPtr )
 
-   IF !ISOBJECT( oObject ) .OR. !ISCHARACTER( cSymbol ) .OR. !hb_ISPOINTER( nFuncPtr )
+   IF !ISOBJECT( oObject ) .OR. !ISCHARACTER( cSymbol ) .OR. !hb_ISSYMBOL( nFuncPtr )
       __errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
    ELSEIF __objHasMethod( oObject, cSymbol )
       __clsModMsg( oObject:ClassH, cSymbol, nFuncPtr )