From 43c3eae12a45c490219f4973176d13ebcad4a257 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Mon, 17 Apr 2000 04:32:42 +0000
Subject: [PATCH] 20000417-06:32 GMT+1 Victor Szakats <info@szelvesz.hu>

---
 harbour/source/vm/asort.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 );