diff --git a/harbour/source/vm/classes.c b/harbour/source/vm/classes.c index 8bbc699dc7..969b95b9ad 100644 --- a/harbour/source/vm/classes.c +++ b/harbour/source/vm/classes.c @@ -1764,10 +1764,9 @@ HB_FUNC( __OBJSENDMSG ) { USHORT uiParam; + hb_vmPushSymbol( pMsg->pSymbol ); /* Push char symbol as message */ hb_vmPush( pObject ); /* Push object */ - hb_vmMessage( pMsg->pSymbol ); /* Push char symbol as message */ - for( uiParam = 3; uiParam <= uiPCount; uiParam++ ) /* Push arguments on stack */ hb_vmPush( hb_param( uiParam, HB_IT_ANY ) ); @@ -2520,4 +2519,4 @@ HB_FUNC( __CLSGETPROPERTIES ) } hb_itemRelease( hb_itemReturn( pReturn ) ); -} +} \ No newline at end of file