diff --git a/harbour/source/vm/asort.c b/harbour/source/vm/asort.c
index ec8a97790e..bc165bbbca 100644
--- a/harbour/source/vm/asort.c
+++ b/harbour/source/vm/asort.c
@@ -265,7 +265,7 @@ HB_FUNC( ASORT )
 {
    PHB_ITEM pArray = hb_param( 1, HB_IT_ARRAY );
 
-   if( pArray )
+   if( pArray && ! hb_arrayIsObject( pArray )  )
    {
       ULONG ulStart = hb_parnl( 2 );
       ULONG ulCount = hb_parnl( 3 );