From 4e4e5f3c39523b4a6cf530aa4b66dba31e0c2a94 Mon Sep 17 00:00:00 2001
From: Andi Jahja <xharbour@cbn.net.id>
Date: Sat, 7 Aug 1999 15:21:43 +0000
Subject: [PATCH] bug fix

---
 harbour/source/rtl/asort.prg | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/harbour/source/rtl/asort.prg b/harbour/source/rtl/asort.prg
index 8a4e1547fd..1def24686d 100644
--- a/harbour/source/rtl/asort.prg
+++ b/harbour/source/rtl/asort.prg
@@ -50,7 +50,9 @@ function aSort( aIn, nStart, nCount, bBlock )
         bBlock := {| x, y | x < y }
    ENDIF
 
-   QuickSort( aIn, nStart, nCount, bBlock )
+   IF len( aIn ) > 0
+      QuickSort( aIn, nStart, nCount, bBlock )
+   ENDIF
 
 return aIn